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“dBASE IL is far, far better 


thana shoehorn” 


Rusty Fraser 
President 


Data Base Research Corp. 


“We laughed when 
our customers asked us 
to put our minicomputer- 
based real-time accounting 
system, The Champion)” 
on a micro. 

“No way was it going 
to fit, we thought. 

“We'd have to create 
our own database manage- 
ment system and, even 
then, it'd be a tight squeeze. 

“Then we discovered 


dBASE II, the relational database 
management system for microcom- 


puters from Ashton-Tate.” 


“dBASE II was a perfect fit.” 


“dBASE II is a program devel- 
oper’s dream come true. The dBASE II 
RunTime™ module quickly provided 
us with the powerful text editing, 
data entry speed and other ‘building 
block’ capabilities we needed to 
develop and deliver a new Champion 
to our customers—the leading real- 
time on-line accounting system avail- 


able for a micro.” 


The short cut to success. 
The dBASE II RunTime module 
has helped a lot of program devel- 








opers like Data Base Research become 
successful software publishers. 
For more about dBASE II and 
RunTime, contact Ashton-Tate 
10150 West Jefferson Boulevard, 
Culver City, CA 90230, (800) 437-4329, 
ext. 217. In the U.K., call (0908) 568866. 
For more about The Champion, 
call Data Base Research at (303) 987-2588. 


ASHTON ‘TATE ® 





dBASE II and RunTime are registered trademarks of Ashton-Tate. 
The Champion is a registered trademark of Data Base Research Corporation. 
©Ashton-Tate 1983. 
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FORTH GIVES YOU 
TOTAL CONTROL 





GRAPHICS « GAMES ° COMMUNICATIONS 
ROBOTICS ¢ DATA ACQUISITION « PROCESS CONTROL 


FORTH: for 2-808 8080, 8086, 68000, and IBM® PC 
(Complies with the New 83-Standard) 


FORTH programs are instantly 
portable across the four most 
popular microprocessors. 


FORTH is interactive and 20 
times faster than BASIC. 


FORTH programs are highly 
structured and easy to maintain. 


FORTH provides direct control 
over all interrupts, memory loca- 
tions, and i/o ports. 


FORTH allows full access to 
DOS files and functions. 


FORTH application programs 
can be distributed as turnkey 
COM files with no license fee. 


FORTH Cross Compilers are 
available for ROM’ed or disk 
based applications on most 
microprocessors. 


Custom programming, con- 
sulting, and educational services 
available. 








/ 


FORTH Application Development 
Systems include interpreter/compiler with 
virtual memory management and multi- 
tasking, assembler, full screen editor, de- 
compiler, utilities, and detailed technical 
manual. Standard random access files used 
for screen storage, extensions provided for 
access to all operating system functions. 
Z-80 FORTH for CP/M® 2.2 or MP/M Il, 
$50.00; 8080 FORTH for CP/M 2.2 or 
MP/M II, $50.00; 8086 FORTH for CP/M-86 
or MS-DOS, $100.00; PC/FORTH™ for PC- 
DOS, CP/M-86, or CCPM, $100.00; 68000 
FORTH for CP/M-68K, $250.00 


FORTH + Systems are 32 bit implementa- 
tions that allow creation of programs as large 
as 1 megabyte. The entire memory address 
space of the 68000 or 8086/88 is supported 
directly for programs and data. 

PC FORTH +................. $250.00 
8086 FORTH + forCP/M-86...... $250.00 
68000 FORTH + forCP/M-68K .. .$400.00 


FORTH Cross Compiler allows you to cus- 
tomize the FORTH nucleus, recompile on a 
host computer for a different target com- 
puter, generate headerless and ROM-able 
code. Supports forward referencing. Pro- 
duces executable image in RAM or disk file. 
No license fee for applications, $300.00. 


FORTH Native Code Compilers 


For Z80 FORTH andCP/M........ $100.00 
For 8086 FORTH andCP/M-86..... $200.00 
ForIBMPCandPC-DOS ......... $200.00 
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Laboratory Microsystems Incorporated a 
4147 Beethoven Street, Los Angeles, CA 90066 


Phone credit card orders to (213) 306-7412 


Extension Packages 

Software floating point (Z-80, 8086, PC only), 
$100.00; AMD 9511 support (Z-80, 8086, 
68000 only), $100.00; Intel 8087 support 
(8086, PC only), $100.00; Advanced color 
graphics (PC only), $100.00; Symbolic 
interactive debugger (PC only), $100.00; 
PC/TERM Communications/file transfer for 
Smartmodem, $60.00; Cross reference 
utility, $25.00; PC/GEN (custom character 
sets, PC only), $50.00; Curry FORTH Pro- 
gramming Aids, $150.00; B-Tree index 
manager, $125.00; B-Tree index and file 
manager, $200.00; QTF + Screen editor for 
IBM PC, $100.00; Quad Integer Math Pack, 
$25.00. 


AUGUSTA, Ada subset compiler from Com- 
puter Linguistics for Z-80 CP/M 2.2 systems, 
$90.00 


“Starting FORTH” tutorial by Brodie, soft- 
cover, $16.00. 


INTEL 8087-3 Numeric Coprocessor, 
$250.00 


Z-80 and 8080 FORTH require 48 Kbytes RAM. 8086 and 
68000 FORTH require 64 Kbytes RAM. Disk formats avail- 
able include: 8’’ standard CP/M SSSD, Northstar 5%"’ QD, 
Kaypro 5%", Apple 5%'', Micro-Mate 5%’’, MS-DOS 

5%’'’, Osborne 5%’’, DD, and Sage. Most other formats 
can be special ordered. Dealer inquiries invited. 


Z-80 is a registered trademark of Zilog, Inc.; CP/M is a 
registered trademark of Digital Research, Inc.; IBM is a 
registered trademark of International Business Machines 
Corp.; Augusta is a trademark of Computer Linguistics; 
PC/FORTH and PC/GEN are trademarks of Laboratory 


Microsystems Inc. 
MasterCard 
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Finally you can utilize the 
_ power of Forth with efficient performance. 


Nodal DTG is an interactive, extensible Direct Threaded Code > 
ae environment. Peru) PPP execute 4-5 amet faster when 
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EDITORIAL 


Several people found the time interval between the formal announcement of the 
telecommunications issue in our pages and the copy deadline to be a bit tight. Let that 
not be said about our next special issue. Be advised that our annual Forth issue is again 
planned for September, and the copy deadline will be May 14, 1984. We will provide 
more details next month, but interested parties may contact us at P. O. Box E, Menlo 


Park, CA 94026; (415) 323-3111. 


We have a correction and an elaboration regarding last month’s issue. On page 44, a 
telephone number was provided for testing one’s VPC implementation. Unfortunately, 
the number given was the main number for Unir, not the VPC test line. The correct 
number to dial to test your VPC is (317) 842-6986. 


The sidebar which accompanied the communications protocols article noted that 
a Monte Carlo simulation was being set up to estimate some of the accuracies for 
various error-checking schemes. Author Leslie Brooks has provided a Letter to the 
Editor this month which details the outcome of the simulation, and its effect on their 


initial predictions. 


Below you will find the list of our current referees. As with other aspects of DDJ, 
we assume that the board will evolve over time. While we intend to list the referees 
that work on each issue, we will also publish a complete list periodically. 


Our appreciation to those who have all along been informally providing technical 
advice and insights. Our special thanks to David E. Cortesi for his continuous and sub- 
stantial support, and to Kim Harris for his willingness to look at so many Forth articles 


over the years. 
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LETTERS 








The editorial response card is a great way 
to talk to us, but don’t forget that Dr. 
Dobb’s Journal also welcomes letters to 
the editor as a forum for ideas, innova- 
tions, irascibility and even idiosyncrasies. 
Some letters may be edited for clarity 
and brevity. The Doctor likes hearing 
from you — keep on writing. 


Accuracy Update 


Dear Doctor: 

In our recent article on communica- 
tions protocols (February 1984, DDJ No. 
88), my friend John Rasp and I were 
discussing the relative merits of various 
methods of error detection. As we said 
there, the mathematics becomes very 
tricky if the changed bits are clustered 
together rather than randomly distributed. 
In order to get accurate results for the 
clustered errors, and to check our results 
for random errors, we finally ran a Monte 
Carlo simulation on the university’s Cyber 
760 mainframe. The results were very en- 
lightening; although he couldn’t prove it 
John had not expected the two cases to 
differ, but in fact they did. It turns out 
(as you can see by looking at the table 
top right) that all of the common methods 
of error detection are significantly better 
at catching errors if the changed bits are 
clustered together. In fact, the XOR 
method of calculating a checksum is the 
worst method of calculating the check- 
sum if the errors are random, but the best 
method if the errors are clustered. 

These results should be accurate to 3 
digits. The simulation ran 40,000 itera- 
tions, generating a block of 128 bytes of 
random data each time, then randomly 
choosing the first bit to be clobbered, then 
randomly choosing the number of bits to 
be clobbered, then choosing the values of 
the clobbered bits. The number of bits to 
be hit was clustered around 10, in the 
usual bell curve. The simulation was writ- 
ten in Fortran, and required 15 minutes 
of CPU time to run (on a 10 megaflop 
machine)! 

I hope this clears up any lingering 
questions. 

Sincerely, 

Leslie Brooks 

Computing Center 

The Florida State University 
Tallahassee, FL 32306 


(Continued on page 90) 
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Method: 
Random Errors: 


Sum w/carry 
1in 221 
1 in 360 


1 in 136 
1in 417 


1 in 187 


Clustered Errors: 1 in 381 


Table 
Probability of Missing an Error 
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DR. DOBB'S CLINIC 


by D.E. Cortesi, Resident Intern 











Basically Precise 

That describes the material sent us 
by Allan Behler, printed in the November 
Clinic. Allan had discovered that, in 
Microsoft BASIC-80, a constant assigned 
to a double-precision variable wasn’t 
stored as expected: 


DEFDBL A 

A= 134.12 

PRINT A 
134.1199951171875 


The display could be made correct with 
PRINT USING, but repeated use of such 
values could accumulate significant errors. 
With a good deal of difficulty he worked 
his way to a solution using a rounding 
function to convert from a single- precision 
value to a double-precision one. Here is 
a corrected, improved version of the 
rounding function shown here in Novem- 
ber: 


10 DEF FNRD#(X#)= 
INT(X # *100+0.5)/100# 

20 DEFDBL A 

30 A=134.12 : PRINTA 

40 A= FNRD#(A) : PRINTA 

RUN 

134.1199951171875 

134.12 


Three things are needed to make the 
function work as expected. First, there are 
two expressions in FNRD# (one is the 
argument of INT, the other is the division), 
and at least one of the elements of each 
expression must be double precision. 
Why? Read the following rule from the 
BASIC-80 Reference Manual (Microsoft, 
1979, page 1-8): 


*‘During expression evaluation, all of 
the operands in an arithmetic or rela- 
tional operation are converted to the 
same degree of precision, i.e., that of 
the most precise operand.” 


In other words, if the divisor isn’t “100 #” 
indicating a double-precision constant, 
the result of the division will be single 
precision. The single-precision result will 
be stretched to double to satisfy the ‘“‘#” 
in the name of the function, and the 
result will be exactly the same as as- 
signing 134.12 to A in the first place. 
Second, the function name has to 
indicate that it returns a double-precision 
result. If it doesn’t — if its name is simply 
FNRD, for example — the double-preci- 
sion result of the expression will be trun- 
cated to single precision to match the im- 
plicit type of the function. Then that 
result will be stretched to double precision 
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for the assignment to A, and we are back 
to square one. 

All these problems are the effects of 
another rule (/bid, page 1-9): 


“If a double-precision variable is as- 
signed a single-precision value, only 
the first seven digits, rounded, of 
the converted number will be valid. 
[ Note: it’s six digits in the IBM man- 
ual.| The absolute value of the 
difference between the printed [sic] 

double-precision number and the 
original single-precision value will be 
less than 6.3E-8 times the original 


29 


It isn’t clear to us why, after a constant 
has been converted correctly to a single- 
precision float value, copying it to a 
double-precision float value should change 
its low-order bits (if that’s what happens). 
However, the effect is there, it’s docu- 
mented, and it’s dangerous. 

Finally, the function can still fail if 
it doesn’t indicate that it requires a 
double-precision argument. If its dummy 
argument is named X rather than X#, and 
if the value of the argument has more 
than six significant digits, the result is 
wrong. The (effectively double- precision) 
argument gets truncated to single pre- 
cision when assigned to the dummy vari- 
able, and data is lost. 


Well, Allan’s record of his explora- 
tions provoked some sharp replies. Let’s 
read some of them. Charles Marshall 
says, “If the example is rewritten to use a 
double-precision constant, the correct 
answer is printed: 


A=134.12# : PRINTA 
134.12 


“Mr. Behler continues to use mixed- 
mode arithmetic in the three program 
segments, which will tend to exaggerate 
the problem he is trying to solve. In 
addition his use of 0.51 as a rounding 
constant is invalid, resulting in, for 
example, the number 1.0049 being 
‘rounded’ to 1.01.” 

Rounding is another whole topic. We 
think Marshall is right, but would anyone 
care to guess why Allan might have (very 
deliberately) used 0.51 instead? 


Meanwhile, Joseph McDermott writes: 


‘People have been stumbling over 
this problem since 1977. I found the 
correct solution on my TRS-80 in 
1978, and it still applies to the IBM 
PC. Why does not Microsoft explain 


it is their manuals and save every- 
body so much grief? Numeric pre- 
cision problems disappear if a few 
simple rules are followed.” 


McDermott’s Rule #1 is: All values 
entering a calculation must be double 
precision. You must be consistent from 
beginning to end of your program, no 
exceptions, he says. This extends to things 
like input where, if you read numeric 
input as a string and then convert it, you 
must remember to append the magic 
pound-sign: 


INPUT NUM$ 
NUM# = VAL( NUM$ + “#” ) 


*“BASIC reverts to single precision at 
the slightest excuse,”’ he says. ‘‘A double- 
precision variable on the left of the assign- 
ment statement is not sufficient to en- 
force double-precision calculations.” 

Joseph Sabin wrote in with what we 
think is a false lead: ‘‘Whenever you 
change a Single-precision number to a 
double-precision number, you must use 
the double-precision exchange function: 


A# = CDBL(123.12) 


or you will get inaccurate results.”’ 
A good point, we thought, until we 
tried it: 


A# = CDBL(134.12) 
PRINT A# 
134.1199951171875 


Oops. Sorry, Joseph, we can’t find any 
difference between using CDBL and not. 
It is definitely not a replacement for the 
use of a double-precision marker on the 
constant itself — “134.12#” and “‘CDBL- 
(134.12)” do not appear to be the same 
thing. In fact, the documentation for 
CDBL reveals exactly that. Take this 
example, exactly as shown in the IBM 
BASIC manual (first edition, page 4-31): 


10 A = 454.67 

20 PRINT A; CDBL(A) 

RUN 

454.67 454.6699829101563 


That’s Behler’s original problem; CDBL 
does not do what FNRD# does. What 
FNRD# does is probably not useful when 
working with constants; the trailing 
pound sign does it better. Its only use 
would be in the rare cases when you have 
a computed value of money in a single- 
precision variable and want to assign it to 
a double-precision variable. In that spe- 
cific case it does a better job that CDBL. 
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Transcendentally Precise 

Richard Falk writes asking for help 
in finding, ‘‘either a machine code source 
listing or a fast algorithm for trig functions 
on the 6502. I’ve coded the power series 
for sin, cos, tan, arcsin, and arctan, but 
these require so many terms for sufficient 
accuracy (12-13 decimal digits) that they 
run too slowly.”’ He notes that the best 
sin function he’s come up with takes 500 
ms to execute, compared to 340 ms for the 
BASIC sin function on the same machine. 
Would anyone care to recommend a good 
reference for this? We suppose that Falk 
would like a cookbook approach, rather 
that a course in numerical analysis. 


Stocking Up 

Dick Mesirov is the kind of reader we 
really appreciate: He sent us some origi- 
nal, unsolicited input — a “sponse,” not 
a re-sponse. (Go thou and do likewise!) 
Here’s how he tells it: 

“TI am a market maker on the Phila- 

delphia Stock Exchange Options 


floor. If you’ve seen TV shots of those 
guys screaming, hollering, and waving 
their arms in the commodity pits, 
well, that’s what I do. I store data on 
the stocks I trade: opening price, high, 
low, close, and the direction of last 
trade (up or down). This data is 
entered and used daily, and I store it 
by month. That is, all of October’s 
entries are stored in the file named 
xxxOCT83, where xxx is the three- 
letter symbol for the stock. 

‘When I run the program each eve- 
ning, after entering the day’s data, I recall 
several months’ data in addition to the 
current month’s. The number of months 
required varies depending on what I am 
trying to do. Originally I recalled each 
month by name; then I came up with the 
routine listed here. It recalls and saves 
one month’s data a day at a time, then 
automatically steps down by one month 
and recalls the prior month’s data. After 
getting January’s data it also steps down 
one year. 


Dr. Dobb’s Clinic (Text begins on page 9) 


9000 REM 
9010 REM 


“I’ve never seen anything like it in any 
of the books I have nor in any of the com- 
mercial programs I’ve looked at. The same 
approach could be used by day or I guess 
for any series that can be listed as a string.” 


Dick’s routine appears in Listing One 
(below). The original was cleanly struc- 
tured using IFs and GOTOs; we took the 
liberty of recoding it to use nested FOR 


-and WHILE loops to emphasize its shape. 


The only problem we can see is not in the 
program but in CP/M. There is a definite 
limit to the number of files you can store 
on a disk. Typically there are only 64 
or 128 entries in the disk directory. When 
Mesirov accumulates a year’s data on ten 
stocks he can look forward to getting a 
file error from filling up the directory. 
Within that limit, this looks like a useful 
technique. BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 


SUBROUTINE TO READ STOCK HISTORY FILES 


9020 REM history files are named SSSMMMYY, where 


9030 REM 


SSS=stock-id, MMM=month, YY=year 


9040 REM returns N=number of entries read 


9050 REM 


9060 IM$="JANFEBMARAPRMAY JUNJULAUGSEPOCTNOVDEC" 
9070 INPUT "NAME OF STOCK";ST$ 

9080 INPUT "CURRENT MONTH" ;MO$ 

9090 B=INSTR(IM$,MO$) 

9100 INPUT "CURRENT YEAR";YC$ : YC=VAL(YC$) 
9110 INPUT "HOW MANY MONTHS’ DATA NEEDED";NM 


9120 N=0 


9130 FOR JM=1 TO NM 


9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 NEXT JM 
9250 RETURN 


WEND : 


B=B-3 


REM read one file’s (month’s) data 
OPEN "I",#1,ST$+M0$+YC$ 
WHILE NOT EOF(1) : N = N+1 
REM here READ a stock entry into various 
REM ..arrays subscripted by N 
CLOSE 
REM get the prior month and year 


IF B<1 THEN B=B+36 : YC=YC-1 : YC$=RIGHT$(STR$(YC), 2) 
MO$=MID$( IM$,B, 3) 


End Listing 
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RODUCTS® 


Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 


But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


The Well- Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see a new microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M’ 
and process assembly language for the 
most popular microprocessor families. 


51/4” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


oe /P-0 Version ........<...2.ce.ce- 
CP /M-86 or MDOS version ....... $195 


(when ordered with any Avocet product) 


EPROM Programmer -- Model 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
goto. 41/10, 2532, 2732, _2732A, 
27C32, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeq and Xicor EEPROMS. 


Avocet 
Cross-assembler 


e XASMZ80 

e¢ XASM85 
XASMO05 
XASMO9 
XASM18 
XASM48 
XASM51 
XASM65 
XASM68 
XASMZ8 
XASMF8 
XASM400 
XASM75 





Z-80 







(Upgrade kits will be available for new 


Target CP/M-80 
Microprocessor Version 


Coming soon: XASM68K...68000 






¢ CP/M-86 


Versions e 


$250.00 
each 


$200.00 
each 


$300.00 
each 





Call Us 







IBM PC, MSDOS** 







$500.00 


PROM types as they are introduced.) 


Premera (i ey $389 
Options include: 

e Software Driver Package -- 

e enhanced features, no installation 


e required. 

eI P/M-80 Version . os ass. $ 75 

Sr VERSION 5. ee ins a $ 95 
ee ge ne eg $ 30 


8748 family socket adaptor... $ 98 
8751 family socket adaptor... $174 
e 8755 family socket adaptor... $135 


e G7228 Programmer by GTek -- baud 
e to 2400 ... superfast, adaptive program- 


e ming algorithms ... programs 2764 in one 


e minute. 


© Programmer 2... xs te $499 


e Ask us about Gangand PAL programmers. 


¢ HEXTRAN Universal HEX File Con- 
¢ verter -- Converts to and from Intel, 
e Motorola, MOS Technology, Mostek, 
e RCA, Fairchild, Tektronix, Texas 
e Instruments and Binary formats. 


® Converter, each version....... $250 


Circle no. 3 on reader service card. 


If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we’ll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research ** Trademark of Microsoft 


AVOCET 
SYSTEMS INC: 


DEPT. 384-DD 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 . 
302-734-0151 TELEX 467210 





CP/M EXCHANGE 


by Robert Blum 








Last month I ran a preliminary appli- 
cation note for CP/M Plus that reportedly 
would optimize the access time to any disk 
file — especially one that was small enough 
to fit into buffer memory and was ac- 
cessed more than once within the same 
program. After installing the patches on 
my system, there appeared to be a signifi- 
cant increase in overall system perform- 
ance, although at that time I had nothing 
more concrete to go on than an impression. 


How Fast Is It? 


To find out how much of a speed ad- 
vantage (if any) was gained, I wrote a 
small benchmark program to be used in 
comparing the performance between an 
off-the-shelf distribution system and a 
modified one. The benchmark program I 
wrote had five distinct phases. The first 
four phases performed preliminary main- 
tenance functions: make four files; write 
16K of garbage data to each file; close 
the four files; and open the same four 
files that were just created. 

The fifth and final phase sequen- 
tially read and reread the four files four 
times. If the changes were to be a success, 
this final phase of the program would 
produce the most dramatic evidence. 

After completing the benchmark pro- 
gram, I copied the unaltered distribution 
files of my CP/M Plus system into a sepa- 
rate user area for use in link-editing the 
standard or unaltered CP/M system used 
in my benchmarks. My last step was to 
apply the patches outlined in the applica- 
tion note to one copy of my CP/M Plus 
system. 

As shown in Table I (at right), four 
benchmarks were run, each with different 
combinations of features, etc. The first 
benchmark was run with two CP/M Plus 
systems that were completely stripped 
down and (as closely as I could make 
them) equal in performance to their V2.2 
predecessor. As you can see, the runtime 
difference between the distribution and 
the modified system is small enough to 
be inconsequential. 

The second and third benchmarks 
produced a healthy runtime reduction 
over the first one, but little difference was 
found between the two of them. This lack 
of improvement was a total surprise to 
me since I had expected the LRU buf- 
fering improvements to be more signifi- 
cant no matter what other options had 
been selected. But, as it appears, the LRU 
buffering logic is directly, or at least very 


closely, tied to the logic used for directory 
hashing. 


Benchmark number four plainly 
points out how much of an improvement 
a plain vanilla CP/M Plus system can make 
in runtimes (not to mention the further 
reductions that can be experienced by 
tuning the system a little). 


CP/M 2.2 BIOS Function: SELDSK 


Billy Smith of Kentfield, California, 
writes: 


‘Here is a special treat for CP/M 
hackers. This tidbit just turned up as the 
root of a tricky little bug. I was imple- 
menting a public domain program called 
FILE.ASM at the time. Its function is to 
display all files on all drives and user areas 
matching the ambiguous file reference 
given in the command line. On my system 
it was stopping after completing drive A 
as if I had just done a cold boot and 
hadn’t referenced any other drives yet. 

“Debugging revealed that there is a 
slight difference in the version 2.2 CP/M 
BIOS function SELDSK from all earlier 
versions. There is an additional sentence 
in the V2.2 manual, under SELDSK, that 
explains a little further: ‘The least signifi- 
cant bit of register E is zero if this is the 
first occurrence of the drive select since 
the last cold or warm start.’ There was no 
reference to register E having to be preset 
to any special value in earlier versions of 
the CP/M manual. 

‘“My BIOS (Morrow) takes advantage 
of this information and does not do a for- 


mal selection of a drive if the bit is non- 
zero. Instead it simply returns a value 
from a local variable that is assumed prop- 
erly set during the first disk select. I sup- 
pose CP/M keeps this bit correct when 
calling SELDSK, but any program that 
does direct BIOS calls has the responsi- 
bility of managing this bit. 

“One problem with this logic is that 
an application program has no idea if 
a drive has already been referenced or not 
and therefore must always set the bit to 
zero for its first reference even though this 
may be redundant to the BIOS. Since this 
public domain program had random non- 
zero data in register E, my BIOS was re- 
turning a bad value from SELDSK. In fact 
the bad value happened to be zero, 
which the program interpreted to mean 
non-existent drive and, of course, ended 
its operation. 

‘‘My simple fix was to clear register 
E before the call to SELDSK. Every call 
to SELDSK is now treated as though it 
were the first disk select of that drive and 
a proper value is returned.”’ 


Application Note 2 


Michael Carter of Garran, Australia, 
wrote several months ago to share a patch 
he had developed for reversing the mean- 
ing of the BACKSPACE and DELETE 
keys in CP/M V2.2. Michael’s note 
prompted me to dig through my files to 
see if DR had officially released anything 


Run Distribution Modified 
#1 76 seconds 74 seconds 
#2 64 seconds 59 seconds 
#3 62 seconds 61 seconds 
#4 37 seconds 25 seconds 
Legend 


#1 No features enabled, 1 Directory buffer and 1 Data buffer 

#2 Directory Hashing enabled, 1 Directory buffer and 1 Data buffer 

#3 No features enabled, 23 Directory buffers and 255 Data buffers 

#4 Directory Hashing enabled, 23 Directory buffers and 255 Data buffers 


Table I. 
Distribution vs. Modified CP/M Plus 
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on this subject. Sure enough, in February 
of 1982 an application note was published 
that thoroughly covers the subject. 


CP/M® V2.2 Application Note 02, 2/20/ 
82: Reversing the BACKSPACE and RUB- 
OUT Key Functions and Making RUBOUT 
Identical to BACKSPACE 


Copyright © 1982 by Digital Research. CP/M is 
a registered trademark of Digital Research. 
DDT and SID are trademarks of Digital Re- 
search. Compiled November 1982. Reprinted 
with permission of Digital Research. All infor- 
mation here is proprietary to Digital Research. 


Applicable products and version numbers: 
CP/M® V2.1 and V2.2 


Program: BDOS 


In the following code segment pro- 
cedures, addresses given are hexadecimal 
offsets from the base of the CP/M system. 
The CCP is usually located at 980H but 
can be located at AOOH if a two-sector 
boot is used. 

You can assemble the patch for your 
size memory system. The cpmbase equals 
the BDOS entry point address at locations 
6 and 7 in the base page of memory minus 
806H. You must change this entry point 
address when you load DDTT™ orSIDT. 
Under DDT or SID, follow the jump at 
location 5 until an address is found with a 
least significant digit of 6. In the following 
example, the cpmbase would be E506H- 
806H or DDOOH. 


0005 JMP CD00 
CDOO JMP D3A4 
D3A4 XTHL 

D3A5 SHLD E452 
D3A8 XTHL 

D3A9 JMP E506 


Procedure to reverse the BACKSPACE 
and RUBOUT key functions: 


Patch into the SYSGEN or MOVCPM 
image exactly as you would patchin anew 
version of your BIOS, using the DDT i 
command followed by the DDT r com- 
mand. You can use the same offset as your 
custom BIOS and install the code found in 
Listing One (page 14). 

Patch into the SYSGEN or MOVCPM 
image exactly as you would patchin anew 
version of your BIOS, using the DDT i 
command followed by the DDT r com- 
mand. Use the same offset as your custom 
BIOS and install the code in Listing Three 
(page 14). 

Or, you can install the above proce- 
dure directly into MOVCPM if you have 
MOVCPM.COM on your system disk. The 
patch is installed automatically in any size 
system that you build using MOVCPM. 
Make a back-up copy of MOVCPM.COM 
before using DDT to make the following 
changes: 


A>ddt movepm.com 
DDT VERS 2.2 
NEXT PC 





2700 0100 

—1141b 

141B MOV A,B 
141C ORA A 
141D JZ O9EF 
1420 MOV A,M 
ee DCR B 
_al4ib 

141B mvia,8 

141D jmp a07 

1420 - 


A> save 38 movepml.com 
Use the new program MOVCPM1 


-COM in place of MOVCPM.COM. The 














RUBOUT and BACKSPACE key functions 
are identical in any CP/M system generated 
with MOVCPM1.COM. 

Licensed users are granted the right 
to include these modifications in CP/M 
V2.2 software. 

Or, you can install the above proce- 
dure directly into MOVCPM if you have 
MOVCPM.COM on your system disk. The 
patch is applied automatically to any size 
system that you build using MOVCPM. 
Make a back-up copy of MOVCPM.COM 
before using DDT to make the following 
changes: 

A>ddt movepm.com 
DDT VERS 2.2 
NEXT PC 


“O-PRO4 blows 
BASE Il away 


We now complete complex applications 


in weeks instead of months. 99 





says Q-PRO4 user, Richard Pedrelli, President, Quantum Systems, Atlanta, GA 


4&4 As a dBASE!I beta test site the past two years, we were reluctant to 
even try Q-PRO4. Now we write all our commercial applications in Q-PRO4. 
We find it to be an order of magnitude more powerful than dBASEII. 

We used Q-PRO4’s super efficient syntax to complete our Dental 
Management and Chiropractic Management Systems much faster. Superb 
error trap and help screen capabilities make our finished software products 


far more user friendly, too. 


In my estimation, any application programmer still using outdated 3rd 
generation data base managers or worse, a 2nd generation language like 


BASIC, is ripping himself off. 99 


Runs with PCDOS, MS-DOS, CP/M, MP/M, CP/M86, 


MP/M86, TurboDOS, MmmOST, MUSE, and NSTAR. 





PRICE: 8-bit single-user — $395; 8-bit multi-user and 
16-bit single-user — $595; 16-bit multi-user — $795. 
Money-back Fished e Author’s lock up package 


' avalable e oh applications are freely 
rans ble between operating systems 


je record and file lock. 





For Q-PRO 4 demonstration, go to nearest MicroAge store or other fine dealer. 


Quic-n-e@asi products inc. 


136 Granite Hill Court, Langhorne, PA 19047 (215) 968-5966 Telex 291-765 


CP/M. MP/M. CP/MB86. and MP/M86 are trademarks of Digtal Research. TurbDOS. MmmOST MUSE. NSTAR_ MS-DOS and PCDOS are trademarks of Software 2000, TeleVideo Systems. 0.S.M., Molecular, Microsoft and IBM, respectively 


Circle no. 48 on reader service card. 
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2700 0100 66 
~11402 


We make C easy... 


A>save 38 movepml.com 























































a rote Big Use the new program MOVCPM1 
1407 MOV A,B .COM in place of MOVCPM.COM. The 
1408 ORA A BACKSPACE and RUBOUT key func- 
14n0 S37 O9EF tions are reversed for any CP/M system 
140C DCR B generated with MOVCPM1.COM. 
ae a9 - nek Procedure to make RUBOUT identical to 
1413. JMP 0A70 BACKSPACE: 
1416 CPI 7F Before you install this patch, the code 
| 1418 JNZ 0A26 at cpmbase + OA1Bh should read as shown 
Fan i —s1403 in Listing Two (below). BB 
ae 2 1403 08 7f 
nator 1404 C2 - 
os —s1417 Reader Ballot ; 

1417 7£8 Vote for your favorite feature/article. 
1418 C2° Circle Reader Service No. 191. 





and work! CP/M Exchange Listing (Text begins on page 12) 


Listing One 


Eco-C compiler... we've got it all. 


Whether you're a seasoned professional or just get- ) 2 
ting started in C, the Ecosoft C compiler has every- cpmbase equ . ‘ Subtrack 8@6h from address 
thing you'll ever need. at location 6 
COMPLETENESS: 
Our Eco-C compiler is a complete implementation Org Cc pmba se + §AG2h 
of C and supports all operators and data types (includ- Cc pi 7£h ‘was Cc pi g8h 
ing long, float and double). ‘ 
EFFICIENCY: ae org cpmbase + @§A16h 
The compiler generates extremely efficient Z80 ; is ; 
code using Zilog’s mnemonics. On the benchmarks Cpl 08h ;waS Cpl i fh 
tested, typically we finished either first or second 
using substantially less generated code. 2s 
PORTABILITY: End Listing One 


The ECO-C library contains over 100 functions 
that are UNIX V7 compatible, and includes a complete 
transcendental package. Programs developed with the 
Eco-C compiler can be moved to virtually any system 
with little or no change. 

EASE OF USE: 

The Eco-C compiler includes Microsoft’s MACRO 
80 assembler, linker, library manager and supporting 
documentation. The assembler (M80) generates 


Listing Two 


industry-standard REL file output. The linker (L80) is MmOv ay b 
fast and uses only the functions you request in the ora a 
program. Program development is a snap. A 
The user’s manual is clear, concise and full of useful JZ C pmb ase + @Q@9EFh 
information. For those of you just getting started with 
C, we also include a copy of the C Programming mov a,m 
Guide (Que). This B. Dalton Best Seller has been der b 
adopted by a number of leading universities around 
the country and is included with each compiler. The dcx h 
book is designed to help you learn C from the ground : 
up. We ought to know... we wrote the book. jmp Cc pmb ase + @ AAQh 


We've made the compiler easy to work with for the 
professional and beginner alike. Most error messages, 
for example, tell you in English (not just a number) 
the line number and character position of the error, 
what was expected and a page reference to the Guide 
to consult for help if you need it. 


PRICE: 

We saved the best for last; we’ve cut the price by 
$100.00. Now you can buy the Eco-C compiler for 
only $250.00 (MACRO 80 and the book alone are 
worth $218.00!). Shop around and we think you agree 
that the Eco-C compiler is the best value available. 

The Eco-C compiler requires a Z80 CPU, CP/M, 
54K of free memory and about 240K of disk space 
(one or two drives). An IBM-PC version will be avail- 
able in the first quarter of 84. To order your Eco-C 
compiler, call or write. 


Ecosoft Inc. Svea 
P.O. Box 68602 
Indianapolis, IN 46268 yx) 
ecosorrT@inc. (317) 255-6476 (momen 


TRADEMARKS: 
Eco-C (Ecosoft), MACRO 80 (Microsoft), CP/M (Digital Research) 


End Listing Two 


Listing Three 


cpmbase equ ? 


=e BO 


org cpmbase + @AI1Bh 


=e 






mvi a,8h 
jmp cpmbase +@A@7h 


Circle no. 21 on reader service card. end 
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THE INTERNATIONAL VIDEO GAME OF THE YEAR COMPETITION 
HERALDS THE “NEW AGE” IN VIDEO/COMPUTER GAMES 


HEA aN) 


hit ee a 







GAME AND YOU COULD 


mR ae 
ipcm ean pa) ae 


International : 


s Video 






Create a brilliant, new video game and you could be on your way to — .  , 
becoming a millionaire. This fantastic = MApCHON. organised by RP. (The : rH OW TO ENTER 
International Register of Independent Computer Programmers Ltd) and the famous ; a F 
Mark McCormack International Management Group, offers programmers and Just send in your game, or games, 
inventors the opportunity of a life time. There are huge, immediate cash prizes and the : programmed on cassette - any i 
on-going revenue of 10% of the sales of all games to distributors throughout the 
world, plus the chance to appear on an international TV show. Your skill and 

you all the facts you need. 


imagination could bring you fame and fortune! : 
CLOSING DATE FOR ENTRIES IS ; 

| 

' 


popular home computer. Use the 
coupon, today, and we'll send 


$100,000 FIRST PRIZE! avistR er oezes: | LOSNGDATEFOREN 


Devise a totally original new video game in one of these categories: SPORTS, se :; 

SIMULATORS, ARCADE, STRATEGY, ADVENTURE/FANTASY or a special section which I to: ee 

covers programmes that are not necessarily games but have outstanding Educational or E England mae ‘ 

Entertainment merit. We'll also be announcing a number of ‘MERIT’ awards which will be 

entitled to carry the message ‘An : i 

International Video Game of the Year MERIT 

AWARD’ on their retail packaging. It's a F 

peat challenge. And the rewards, both 
inancially and in terms of prestige, are 

tremendous. This is the most exciting 
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since the beginning of written his- 

tory. Most of these ciphers and 
codes were developed for military appli- 
cations. One of the more well-known sys- 
tems, designed by Julius Caesar, is a simple 
letter transposition cipher that is easily 
broken today. Since that time, cryptog- 
raphy has matured; some current systems 
are estimated to be unbreakable, even 
using state-of-the-art technology. Some 
claim that cryptographers would have to 
spend millions of years using today’s 
fastest computers to break some of these 
ciphers. 


et ryptography has been in existence 


Key Systems 


In the late 1970s, IBM introduced a 
single key system that was later made 
into a standard by the National Bureau of 
Standards. The Data Encryption Standard 
(DES) is a 56-bit key system that has 
been committed to silicon by several 
semiconductor vendors. The cipher is fast 
and easy to integrate into LSI circuits. 
During and since its standardization, con- 
troversy has raged over the security of the 
DES. The primary concern is over the 
short length of the key. Many also specu- 
late that since the government, which has 
overriding national security concerns, 
standardized the cipher, they may have a 
means of breaking it. However, many 
groups use the DES, including financial 
institutions, local network manufacturers, 
and others. © 

The Public Key System (PKS) was 
first proposed by W. Diffie and M. E. 
Hellman in 1976.! Their paper described 
a dual key system with keys generated 
from large prime numbers (100+ decimal 
digits). In 1979, Hellman published an 
article in Scientific American describing 
the mathematics of the PKS.? He also 
offered a monograph that described the 
system in greater detail, but within a year 
of the monograph offering, it was with- 
drawn from public distribution. Specula- 
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tion was that the government (NSA and 
DoD) had forced its withdrawal because 
it jeopardized the national security. Un- 
like the DES cipher, the PKS has not 
been committed to silicon because it is 
much more complex and requires consid- 
erably more mathematics and computa- 
tion time, as we will soon see. Currently, 
investigators continue ongoing research 
efforts to generate efficient integrated 
circuit implementations of the PKS. 

In 1978, R. L. Rivest, A. Shamir, and 
L. Adleman showed how the PKS could 
be implemented and proposed a means of 
providing digital signatures to the mes- 
sages.> The addition of a signature to a 
message allows a sender to sign his mes- 
sage so that a receiver can be sure that the 
message originated with the sender. The 
February 1983 issue of IEEE Computer 
had a series of articles discussing ways to 
compromise digital signatures and how 
they could be made more secure.* * ® 7 
Some of the articles examined several 
different ciphers, their basic implementa- 
tions, and their limitations. 

In this two-part series of articles, we 
will discuss the Rivest-Shamir-Adleman 
(RSA) PKS and show how to implement 
it on a microcomputer. The first part will 
discuss RATFOR (the implementation 
language) and the mathematical core of 
the RSA system, including modulo arith- 
metic, multiple-precision arithmetic, and 
*“Russian Peasant”’ exponentiation. In the 
second part, we will describe the genera- 
tion of the keys (public and private) and 
the encryption/decryption system; we 


will also take a brief look at digital signa- 
tures. 


RATFOR 


RATFOR (RATional FORtran) is a 
preprocessor to Fortran; i.e., the output 
of the RATFOR precompiler is Fortran. 
The language is described in the book 
Software Tools. RATFOR adds several 
structured constructs to Fortran while 
allowing use of standard Fortran state- 
ments, in-line comments, free-form input, 
multiple statements in a line, definitions, 
inclusion of other files, logical conditions 


similar to BASIC or C, a standard library, 
and so on. In a lot of ways, it is similar to 
the C programming language, and those 
familiar with C should have little trouble 
transporting RATFOR source to C source. 
For that matter, those familiar with Pascal 
should be able to transport the software 
easily. 

Those who want to use RATFOR can 
obtain a public domain version from the 
CP/M Users Group (CPMUG), operated 
by LifeBoat Associates, or from one of 
the RCPM bulletin boards that has it 
available for downloading. Unfortunately, 
a library is unavailable with the public 
domain version; however, using the Soft- 
ware Tools text, you can generate your 
own library of functions or simply pull 
out the appropriate functions from the 
precompiler. 

Now let’s review some of the rudi- 
ments of the language. The structured 
constructs that RATFOR adds to Fortran 
include: 


repeat 
t 
statement n 
} 
until (condition) 
while (condition) 


statement n 


} 
for (init. statement; condition; loop 
statement) 
t 


statement n 
} 
don=j,k # Note the lack of a ter- 


# minating label number 
t 


statement n 


a 
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} 


if (condition) 
statement x 


else if (condition) 


t 
statement y 


| 
else 


: 


statement z 


RATFOR uses # as an in-line com- 
ment indicator and ignores anything after 
its occurrence to the end of the line. The 
+ and + symbols are used as Begin and 
End designators, respectively. Within the 
iterative constructs, you can use the spe- 
cial words break and next; break causes 
an exit from the innermost loop, while 
next causes the innermost loop to con- 
tinue execution at its “‘condition”’ state- 
ment. Because of the form of the “‘if?’ 
statement that RATFOR uses, you can- 
not use a Fortran arithmetic IF within 
RATFOR. For example, 


if (condition) less-label,equal-label, 
greater-label 


is a “‘no-no.”’ 
The ‘‘condition’”’ statements can con- 
tain any of the following logical operators: 


== Equals 

!'= Not Equal 

<___ Less Than 

Less Than or Equal 

> Greater Than 

>= Greater Than or Equal 
! Not 

& And 
Or 


The last three logical operators, !, &, 
and |, can also be used as logical bitwise 
operators on logical or integer variables. 

Two other special words that are 
available are define and include. define 
allows you to make substitutions of strings 
within the source file. Beginning where it 
occurs within the source, it substitutes 
the right string for the left string through- 
out the text. An example follows: 


define(Yes,1) # substitute “1” for 
# “YES” before processing 


include allows you to include another file 
at the point that the statement occurs. 
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| variable 5) - variable 


For example: 


include RATDEF #readsandcom- 
# piles the file RATDEF.RAT 


Multiple statements per line are han- 
dled using semicolons, as shown below: 


statement 1; statement 2; statement 3 


Statements can also be extended across 
multiple lines. The “‘condition”’ statements 
are automatically extended; statements 
with comma separators are extended if 
the comma ends the line; but other state- 
ments must use an underscore (_) to 
extend across a line boundary. Figure 1 
(above) illustrates these three exten- 
sions. The precompiler limits the line to 
72 characters, generates a continuation 
character in column 6 of the next physi- 
cal line, and continues the source in this 


5 urine eaibet he. variable3, E 
-_-variable5,variable6) © 


c= = varicbie1* (cos (variable 2) ie (varia 23) 


fashion until the logical line ends. To get 
an idea of how RATFOR handles these 
items, consult Listing One (page 22) and 
Listing Two (page 24) for examples of 
the RATFOR source and Listing Three 
(page 24) for the Fortran source generated 
by the precompiler. 


Modulo Arithmetic 


At the heart of a PKS cipher is the 
ability to perform multiple-precision, 
nonnegative, integer arithmetic. As was 
implied earlier, the PKS cipher requires 
the use of addition, subtraction, multi- 
plication, division, and exponentiation of 
large numbers (100 to 250 decimal digits). 
Most computers, including microcomput- 
ers, are limited to arithmetic on numbers 
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having 3 to 10 decimal digits (usually in 
binary form). To compound the problem, 
performing the RSA algorithms requires 
the use of modulo arithmetic. In some 
respects, modulo arithmetic is a lifesaver 
in that it limits the size of the numbers 
that are generated; however, it also com- 
plicates things because additional process- 
ing must be done on the results of arith- 
metic operations. 

While modulo arithmetic is similar to 
the arithmetic that we learned in school, 
it has some differences. Thus, we should 
look at a few of its properties. A ‘‘modu- 
lus” is essentially the base of the number 
system that is being employed, and the 
mod operator leaves the ‘“‘residue’ of 
numbers. We could define the operation 
(A mod B) for nonnegative integers (in 
which we are currently interested ) as: 


A mod B=A -(B * int(A/ B) )= 
remainder (A / B) 


Therefore, a number system with a base 
of 10 (decimal) can only contain the 
digits 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9. The 
following example uses hex (base 16): 


75 mod 16 = 75 - 16 * int(75/16) = 
75 -16*4=75 -64=11< 16 


Another interesting property of 
modulo arithmetic is: 


(A @ B) mod C= 
((A mod C) @ (B modC)) modC 


where @ can represent +, -, or *. Ex- 
ponentiation is similar: 


(A ** B) mod C= 
( (A mod C) ** B) mod C 


These operations are also commuta- 
tive; i.e., the order of performance is not 
important, as illustrated in Figure 2a 
(at right). Figure 2b (below) shows a 
couple of examples to make sure we have 
it. 

Now you can understand why using 
modulo arithmetic in raising large num- 
bers to large powers can be a lifesaver. 
However, it does add considerably more 
operations (one division to get the remain- 
der after each operation). 


Multiple-Precision Arithmetic 


In this section, we will cover the 
basic operations of addition, subtraction, 
multiplication, and division of nonnegative 
integers. I should point out that there are 
a few programs capable of performing 
multiple-precision arithmetic on very 
large numbers, e.g., MUMATH. These pro- 
grams undoubtedly use similar algorithms 
to perform their operations, and I am 
Sure that they could be put to use effec- 
tively in implementing the RSA algorithm. 
Our current objective, however, is to 
show how to do it. 

The general opinion is that D.E. Knuth 
has written the “bible” of computer al- 
gorithms, and his work is the basic source 
of most of what I will subsequently pre- 


sent in this set of articles. Many of the 
extensions to what he presents in the text 
of his books can be found in the problems 
at the end of each section and in the sub- 
sequent answers at the end of each book.? 
Another paper dealing with multiple- 
precision arithmetic that might be helpful 
here was written by M. Zimmerman.!° 
My implementation of the multiple- 
precision arithmetic (MPARITH. RAT) can 
be found in Listing Four (page 26). 

Looking at the basic arithmetic oper- 
ations, we can say that: 


1. Addition of two N-digit numbers pro- 
duces a result that has at most (N+1) 
digits. 

2. Subtraction of two N-digit numbers 
produces a result that has at most N 
digits. 

3. Multiplication of an N-digit number 
by an M-digit number produces a re- 
sult that has at most (N+M) digits. 


4. Division of an (N+M)-digit number 
by an N-digit number produces a quo- 
tient of at most (M+1) digits and a 
remainder of at most N digits. 


These statements hold true no mat- 
ter what radix (number base) system is 
used. In my particular case, I have used a 
radix of 128, where each byte holds a 


*Donald E. Knuth, The Art of Computer Programming, Vol. 2, ©1981, Addison-Wesley, Reading, 
Massachusetts. Pgs. 250, 252, 253, 254, 257, 258 and 442 (to include Algorithms “‘A”’, “S”’, “M”’, 
‘D”, “A”). Reprinted with permission. 


number between O and 127, because the 
Fortran that I used (Microsoft F80) does 
two’s-complement arithmetic on byte 
variables. A define statement near the 
beginning of the routines to be presented 
in Part II sets BYTEMODULUS to 128. 
The MPARITH routines shown in Listing 
Four, however, are not limited to this 
value. They allow any byte modulus 
(radix) between 2 and 128, and the value 
is passed to the subroutine by the param- 
eter MODULO. 

Knuth, in his set of books dealing 
with computer programming, presents 
both algorithms and the “‘ MIX” assembly 
language programs that implement the al- 
gorithms. I have implemented a RATFOR 
(Fortran) version of the algorithms. No 
doubt, an assembly version of the algo- 
rithms written in Microsoft’s M80 would 
run considerably faster, but I was more 
interested in transportability and ease of 
understanding than in speed. (A basic 
premise of programming is to get it work- 
ing first then to modify things to optimize 
performance only if it is necessary. Anoth- 
er premise is that if it ain’t broke, don’t 
fix it!) 

I will present Knuth’s algorithms here 
without going into detail on my routines. * 
Since RATFOR allows in-line comments, 
the code should include most of the re- 





3° -(4*2)) oo 6561 mod 7 = 


2 


= (((3"* 4) mod 7) **2) mod 7 : 
= ( (81 mod 7) "*2)mod 7 = (4 °° 2) mod 


— Or — 
= 16 mod 7 =2 


= (((3** 2) mod 7) ** 4) moa? 
= ((9mod 7) ** 4) mod 7 = (2 ** 4) mod 7 


= 16 mod 7 =2 


Figure 2b. 
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quired documentation, especially when it 
is compared to the original algorithms. A 
transcription of these algorithms follows 
with some minor rewording. These 
algorithms are presented for those of 
you who do not have access to Knuth’s 
second volume. 


Addition Algorithm 


ALGORITHM A (addition of non- 
negative integers). Given nonnegative N- 
place integers (ul, u2,..., un) radix b 
and (vl, v2,..., vn) radix b, this algo- 
rithm forms their sum (w0, wl, w2,..., 
wn) radix b. (Here w0 is the carry, and 
it will always be 0 or 1.) 

Al. [Initialize] Set j=n, k=0. (The varia- 
ble j will run through the various digit 
positions, and the variable k keeps 
track of carries at each step.) 

[Add digits] Set wj=(uj + vj + k) 
mod b and k=floor( (uj + vj + k) / b). 
(In other words, k is set to 1 or 0, de- 
pending on whether a carry occurs or 
not, i.e., whether uj + vj +k >=b or 
not. At most one carry is possible 
during the two additions, since we 
always have uj + vj +k <=2 *(b-1) 
+ 1 < 2 * b, by induction on the 
computation. ) 

[Loop on j] j=j-1l. If j > 0, then go 
to A2; else set wO=k and terminate. 
Note: floor(x) is the greatest integer less 
than or equal to x, also known as int(x). 


A2. 


AZ, 


Subtraction Algorithm 


ALGORITHM § (subtraction of non- 
negative integers). Given nonnegative N- 
place integers (ul, u2,..., un) radix b 
>= (vl, v2,..., vn) radix b, this algo- 
rithm forms their nonnegative difference 
(wl, w2,..., wn) radix b. 

Sl. [Initialize] Set j=n, k=0. 

S2. [Subtract digits] Set wj=(uj - vj + k) 
mod b and k=floor( (uj - vj + k) / b). 
(In other words, k is set to -1 or 0, 
depending on whether a borrow oc- 
curs or not, i.e., whether uj -vj tk < 
0 or not. In the calculation of wij, 
note that we must have -b <= uj - vj 
+k <bor0euj-vytk+b<S=2 
*'p:} 

[Loop on j] j=j-1. If j > 0, then go 
to S2; else terminate. (When the algo- 
rithm terminates, k should be 0; the 
condition k=-1 will occur if and 
only if V> U, and this is contrary to 
the assumptions.) 


S3. 


Multiplication Algorithm 

ALGORITHM M (multiplication of 
nonnegative integers). Given nonnegative 
integers (ul, u2,..., un) radix b and (v1, 
v2,..., vm) radix b, this algorithm forms 
the product (wl, w2,..., wl) radix b, 
l=m+n. (The conventional pencil-and- 
paper method is based on forming the 
partial products (ul, u2,..., un) * vj 
first, for 1 <= j <= mM, and then adding 
een en a 
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these products together with appropriate 
scale factors; in a computer it is best to 
do the addition concurrently with the 
multiplication, per this algorithm. ) 

M1. [Initialize] Set wj=0, m+] Sj S 
mtn, Set j=m. (If wij above were not 
set to zero in this step, it turns out 
that the steps below would set W = 
U * V + (wi,..., wij), i=m+l and 
j=m+n. This more general operation 
is sometimes useful. ) 

[Zero multiplier?] If vj = 0, set wj =0 
and go to Step M6. (This test saves a 
good deal of time if there is a reason- 
able chance that vj is zero, but other- 
wise it may be omitted without affect- 
ing the validity of the algorithm. ) 
[Initialize i] Set i=n and k=0. 
[Multiply and add] Set t = ui * vj + 
(wr + k), r=itj; then set wr =(t mod 
b) and k = floor(t/b). (Here the carry 
k will always be in the range 0 <=k 
Oe 

[Loop on i] i=i-i. Now if i> 0, go 
back to Step M4; otherwise set wj=k. 
[Loop on j] j=j-1. Now if j > 0, go 
back to Step M2; otherwise the algo- 
rithm terminates. 


M2. 


M3. 
M4. 


MS. 


M6. 


Division Algorithm 
ALGORITHM D (division of nonne- 
ative integers). Given nonnegative integers 
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(ul, u2,..., ul) radix b, l=m+n, and 
(vl, v2,..., vn) radix b, whete v1 !=0 
and n > 1, we form the quotient floor 
(U/V) = (al, q2,..., qm) radix b and 
the remainder U mod V =(rl,r2,..., rn) 
radix b. 


D1. [Normalize] Set d = floor(b/(v1+1)). 
Then set (u0, ul,..., ul) radix b, 
l=m+n, equal to (vl, v2,..., vn) 
radix b times d. (Note the introduc- 
tion of a new digit position u0 at the 
left of ul; if d=1, all we need to do 
in this step is to set uO=0. Ona bi- 
nary computer it may be preferable 
to chose d to be a power of two in- 
stead of using the value suggested 
here; any value of d that results in 
vl >= floor(b/2) will suffice.) 

[Initialize j] Set j=0. (The loop on j, 
Steps D2 through D7, will be essen- 
tially a division of (uj,..., ur) radix 
b, r=jt+n, by (vl, ..., vn) radix b to 
get a single quotient digit qj.) 

[Calculate q’] If uj=vl, set q’=b-1; 
otherwise set q’ = floor( (uj *b+ur)/ 
vl), r=j+l. Now test if v2*q’ > 
(uj *b+ur-q’*vl)*b+us, r=j+l and 
s=j+2; if so, decrease q’ by 1 and re- 
peat. this test. (The latter test deter- 
mines at high speed most of the cases 
in which the trial value q’ is one too 
large, and it eliminates all cases where 
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q’ is two too large.) 


D4. [Multiply and subtract] Replace (uj, 
, ur) radix b, r=jtn, by (uj,..., 
ur) radix b minus q’ times (vl,..., 
vn) radix b. This step (analogous to 
Steps M3, M4, and M5 above) consists 
of a simple multiplication by a one- 
place number, combined with a sub- 
traction. The digits (uj,..., ur) 
radix b should be kept positive; if the 
result of this step is actually negative, 
(uj,..., ur) radix b should be left as 
the true value plus b ** (n+1) (i.e., 
as the b’s complement of the true 
value) and a borrow to the left should 
be remembered, 


DS. [Test remainder] Set qj=q’. If the 
result of Step D4 was negative, go to 
Step D6; otherwise go to Step D7. 


D6. [Add back] (The probability that 
this step will be necessary is very 
small, on the order of only 2/b; test 
data that activate this step should 
therefore be specifically contrived 
when debugging.) qj=qj-1, and add 
10 PISA en) radix: B07 fay, © s.; 
ur) radix b, r=jt+n. (A carry will 
occur to the left of uj, and it should 
be ignored since it cancels with the 
borrow that occurred in D4.) 

D7. [Loop on j] j=j+l. Now if j <=m 
go back to D3. 

D8. [Un-normalize] Now (q0, ql,..., 
qm) radix b is the desired quotient, 
and the desired remainder may be 
obtained by dividing (ur,..., us) 
radix b, r=m+tl1 and s=mtn, by d. 


As you can see, the implementation 
of these algorithms in Listing Four follows 
very closely, with the exception of some 
differences or additions that were required 
to make things work properly. A few areas 
are also identified in the listing where 
additions to the algorithms can be imple- 
mented. Obviously, these algorithms are 
very computation-intensive, and they 
form the root of the rest of the software. 
If we were to expend effort to optimize 
these routines, a real savings in execution 
time could undoubtedly be realized. A 
possibility would be to change the num- 
ber arrays from byte-types to integer- 
types and to increase the arithmetic 
modulus MODULO. However, this change 
would create additional complications in 
handling text files because character 
packing would now have to be done. An- 
other method to speed up the operations 
would be to use an arithmetic coproces- 
sor, e.g., an AMD 9511 or an Intel 8087. 
Speed increases of up to an order of mag- 
nitude could potentially be realized. 

We are now ready to discuss the final 
mathematical algorithm in this part of the 
article, the ‘“‘Russian Peasant’’ algorithm. 
It will use the multiple- precision arithme- 
tic algorithms just presented. 


Russian Peasant Exponentiation 


This algorithm was given its name by 
nineteenth-century visitors to Russia who 
found the technique in wide use there. 
However, the algorithm appeared in the 
fifteenth century and is based on a multi- 
plication technique developed by the 
Egyptians at least 3300 years earlier. In 
certain aspects, the algorithm is similar to 
a binary search. The algorithm, as stated 
by Knuth, follows. 


Russian Peasant Algorithm 


ALGORITHM 4 (right-to-left binary 
method for exponentiation). This algo- 
rithm evaluates X **N, where N is a posi- 
tive integer. 

Al. [Initialize] Set n=N, y=1, z=X. 

A2. [Halve n] (At this point X**N =y * 
(z**n).) Determine whether n is odd 
or even. Set n=floor(n/2). If n is 
even, go to Step AS. 

A3. [Multiply y by z] Set y =y * Z. 

A4. [Check n for O] If n = 0, the algo- 
rithm terminates with y as the answer. 

AS. [Square z] Set z =z * z, and go to 
Step A2. 


It should be pointed out that a dual 
algorithm for multiplication (y = X * N) 
can be achieved by replacing y=1 with 
y=0 in Step Al; by replacing Step A3 
with an addition, i.e., y = y + z; and by 
replacing Step AS with a doubling instead 
of a squaring, i.e.,z=z+z. J. Nyberg has 
presented a BASIC program to perform 
this algorithm.!! This method of exponen- 
tiation is usually suitable only for large 
exponents, N, since multiple-precision 
multiplication is more efficient for small 
and moderate values of N. Some faster 
methods are available. One involves the 
factoring of N into its prime factors. 
Another method uses a technique called 
““power trees.” These methods are ex- 
plained in more detail in Knuth’s book, 
but these techniques are more complex 
than the Russian Peasant method. 

The Russian Peasant algorithm had 
to be broadened to perform Y = (X ** N) 
mod M. The modulo operation limits the 
resultant answer to 0 <= Y < M. We shall 
see in the next part of the article that this 
form of the algorithm is required. The 
modification to the algorithm is as follows: 


AS. [Square z] Set z=z * z. 
A6. [Limit z] Set z = (z mod M) and go 
to A2. 


The implementation of the expanded 
algorithm (RPEASANT.RAT) is found in 
Listing Five (page 38). The listing con- 
tains three subroutines: 


RPEXP — The modified Russian Peasant 
algorithm. 

PRDMOD — The routine that performs 
(Z * Z) mod M. It uses the multiple- 


I a a Te 
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precision multiplication and division 
routines given in Listing Four. 


MAKBIN — This routine tries to make 
the halving of the exponent, N, some- 
what more efficient. The byte modu- 
lus, MODULO, does not have to be 2 
** K 0< K <7; thus, N cannot be 
strictly scanned on a bit-by-bit basis 
to perform the even/odd check and 
halving. So we must find a base mod- 
ulus so that BASMOD = 2 ** ceiling 
(log2(MODULO) ), and use it to 
strip off bytes that can be scanned 
on a bit-by-bit basis in the even/odd 
check. The operation becomes: 


1. Initially, set Nx = N (first pass 
through) 
2. TEMP=remainder(Nx /BASMOD) 


3. Nx = floor(Nx / BASMOD) = quo- 
tient(Nx / BASMOD) 


where TEMP is used by RPEXP to do 
Step A2 and the new Nx is retained 
for the next pass until Nx = 0. If 
MODULO = 2 ** K, TEMP just re- 
turns the current least-significant byte 
of Nx without doing the division. 
Therefore, it is most efficient to make 
MODULO = member#2,4,8,16,32,64, 
128}. 


As you can see in the multiple-preci- 
sion routines and in the Russian Peasant 
routine, a considerable amount of pointer 
manipulation occurs. These routines prob- 
ably could be implemented more efficient- 
ly in C or in Pascal, where pointer manip- 
ulation is more easily attained. I do not 
claim that these implementations are 
optimal; however, they do work. If you 
feel the need to ‘“‘optimize” the code, 
dig in! 


Summary 

We are now at the end of the first 
part of the article. We have covered several 
areas: RATFOR, modulo arithmetic, mul- 
tiple-precision arithmetic, and Russian 
Peasant exponentiation. If youimplement 
these algorithms on your system, you 
should be able to check the addition and 
subtraction algorithms fairly easily. To 
check out the multiplication, division, 
and exponentiation algorithms, you will 
need a calculator with a large digit accu- 
racy ( >= 10 is desirable) or a copy of 
MUMATH or TK!SOLVER. Try this 
problem: 


D=(A ** B) mod C 
using 

A = 9182736450 

B = 1928374605 

C = 12345678907 

Byte Modulo = 100 
to obtain 

D = 10447988731 


In the second and final part, we will 
look at the RSA-PKS encryption/decryp- 


tion implementation. This will cover 
three additional areas: the generation and 
testing of large prime numbers, the gener- 
ation of the public/private keys, and the 
encryption/decryption of text files with a 
brief look at digital signatures. See you 
on the second pass. 
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RSA Cryptography System (Text begins on page 16) 
Listing One 


# *#** Listing 1 -- an example of the RATFOR precompiler output 

+ ##* 

= Note that the resulting FORTRAN has the spaces and new lines 
& deleted and that the result is much less readable than the 

= RATFOR source !!! 


define (NEWVARIABLE,variableso) # look at Label 8 for the replacement 
program example 


integer variablel,variable2, variables, variable4,variableS,variables, 
variable/7, variables, variable9,variablelio® 


1 continue # separator for use in finding where statements begin in 
# generated FORTRAN code (standard FORTRAN statement) 
repeat # a RATFOR Construct 
C # "{" and "3F" are not needed for a single statement (see WHILE) !''! 
statement a 


4 


until (variablel == variable2) 


2 continue 
while (variables '= variable4) 
statement b # in-line comment 
Re continue | 
for (variableS=0.03 variableS < variableé: variableS=variableS+1i.0) 
{ 
statement c 
if (variable7Y += variableg) 
{ 
break 
4h continue 
do n=j,k # Note the lack of a terminating label number. RATFOR 
F wWitl:- f1il ik in for ye Uh 
if (variable9 == variablelQO) 
next 
statement ad 
J continue 


if (variable/’ = variable®é) 


(Continued on page 24) 
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thousands of SAGE users worldwide. Beare ale 89502. 


ICOMPUTER 


Byte is a registered trademark of Byte Publications, inc. 








RSA Cryptography System (Listing continued, text begins on page 16) 
Listing One 


{ # "<" and "3" must be used here since "i" makes multiple lines !!! 
statement es statement fs statement g 
else if ((€! logicall) & (variable? <= variableloO) {| 
(legicalZ & logical s)> 


statement h 


statement i 


=, 
4 


include LISTING2 # insert Listing 2 here 


End Listing One 
Listing Two 
# *#* Listing 2 -- this file will be included into Listing 1 at the occurrance 
# #4 Qf the "include LISTINGS" statement '!! 
5 call subroutinet(variableil,variablel2,variablei3,variablel4,variablel5, 


Variablilé,variablel7,variablelS, variablel9,variableto) 


7 Yarlable2Zl=variable2@S*variableta/variablet4+variable?s-— 
(Varlable?té/variable2Z7itvariablezs 
3 YarilableSl=NEWVGARIABLE 


End Listing Two 
Listing Three 


( ##* Listing 3 -- resultant FORTRAN source generated by passing 
Ee Listingl ® Listing through RATFOR 
eee 


programexample 
integervariablel,variableZ, variables, variable4,variable5S,variableé 
*, Variable7,variable8,variable?,variablelo 
1 continue 
continue 
22000 continue 
statementa 
22001 if (.not. (variablel.eq.variable2))goto 25000 
25002 continue 
fe continue 
continue 
22005 if (.not. (variable3.ne.variable4))goto 23004 
statementb 
goto 23003 
22004 continue 
Res continue 
continue 
VariableS=0.0 (Continued on page 26) 
rnd el a a ee 
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RSA Cryptography System (Listing continued, text begins on page 16) 
Listing Three 


25005 if (.not. (variableS.1lt.variabledé))goto 22007 
statementc 
if(.not. (variable7.ge.variables8))goto 23008 
goto 23007— 
22008 continue 
22006 variableS=variableSti.o 
GOta 2o005 
2o0O7 cantinue 
4 continue 
do 23010n=j),k 
if(.not. (variable9.ge.variablelY))goto 235012 
goto 23010 
eao0OL2 continue 
statementd 
22019 continue 
Zl0L1 continue 
og cantinue 
if(.not. (variable7.gt.variables) )goto 235014 
statemente 
statementf 
statementg 
goto 23015 
2oOL4 continue 
if (snot. ((.not.logicall).and. (variable9.le.variablelO).or. (logical 
*#2>,and.logical3)))goto 23016 
statementh 
goto 22017 
S2a016 continue 
statementi 
22017 continue 
22015 continue 


6 callsubroutine(variableli,variablel2,variablel3,variablel4,variabl 
*#elS,variablié,variablel7,variablel8,variablei?,variable2zo) 
7 Variable2l=variable22*variable23/variable24+vari abl e25—-(variabl e2dé 
*/Vvariable?7)+variablezs 
8 Variableti=variableso 
end 
End Listing Three 


Listing Four 


HHHHHHHHHHHHHHHHHHHHHHHEHEHEH FARRER HEHHRHHEHHHEHHHEHEEERER ESE RRSR EHH ERT 


HH Hee 
i ot of Copyright 1983, Charles E. Burton, Denver, Colorado He H+ 
att ett 
### All rights reserved. Permission granted to use this software for ### 
He personal, non-commercial purposes only. ++ + 
4 tet #H# 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHEHHHHERFHERSSE HHP REHERR RSE BHR AEF 


# FROGRAM NAME: MPARITH.RAT 
# PURFOSE: Unsigned Multiple Precision Arithmetic Routines (re: D.E. Enuth, 


# The Art of Computer Frogramming, V. 2 (Semi-Numerical Algorithms), 
th 2nd Ed., ‘Addison-Wesley, Reading, MA), pp. 250-268.) 

ee MPADD -—- Multiple Precision Addition 

ca MPSUBT -- Multiple Precision Subtraction 

a MPMULT -- Multiple Precision Multiplication 

# MFDIV -— Multiple Precision Division 

sinha be Sc lee er Ee ere nae ae ee Sa ae ee ete I a gay ape a eee Se eee Wee GOONS oN ae ees 
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LANGUAGE: RATFOR 
AUTHOR: CER 
USAGE: CALL MPADD (NUM1,LEN1,NUM2,_LEN2, SUM,LENS, MODULO) 
CALL MPSUBT (NUM1,LEN1,NUM2,LEN2,DIFF,LEND, MODULO) 
CALL MFPMULT (NUM1,LEN1,NUM2,LEN2,FPROD,LENF, MODULO) 
CALL MPDIV(NUM1,LEN1,NUM2,LEN2, QUOT, _LENQ, REMN, LENR, MODULO) 
.NUM* -- Byte array, contains the number (byte modulus MODULO) 
to be operated on. The MSDigit(s) are in 
NUM*(1) and the LSDigit(s) are in NUM*(LEN*). NUM2 is 
never modified and NUM1 is only modified by MFDIV. 
CAUTIONS: for MFSUBT, NUMi must be the larger number; 
for MPDIV, NUM1 must be the Numerator such that 
NUMi (1) == 0 (required for normalization) and NUM2 


must be the Demominator such that NUM2(1) != o. 
*LENI/2 -- Integer variable, defines the length of the NUM* 
array. 
“SUM -- Byte array, contains the sum (byte modulus MODULO) 


of NUM1 + MUMS. The MSDigitis) are in 
SUM(1) and the LSDigit‘s) are in SUM‘(LENS). 


“LENS -- Integer variable, defines length of SUM array. 
CAUTION: LENS = MAX‘(LENI,LEN2) + 1 
<DIFF -~- Byte array, contains the difference (byte modulus 


MODULO) of NUMi -—- NUM2. The MSDigit(s) are in 
DIFF (1) and the LSDigit(s) are in DIFF‘(LEND). 
*LEND -- Integer variable, defines length of DIFF array. 


+tHtHRHEHHHHBRHARP HERA H HHH HH HH AW + 


(Continued on next page) 





= CP/M SIMULATOR/DEBUGGER == 
===FOR THE INTEL _8748/8048—— 


ANNOUNCING SIM48 


e SIM48 allows you to load, trace, execute and save Intel 
8748/8048 software using standard Intel Hex files. 


VISIT OUR BOOTH AT THE WEST COAST 
COMPUTER FAIRE 


WRITE 


The Writer’s Really Incredible Text Editor lives up to its 
name! It’s designed for creative and report writing and 
carefully protects your text. Includes many features 


@ SIM48 allows you to simulate all instruction operations, 
timer/counter operations, 1/O operations, interrupt 
processing, reset execution, internal and external RAM 
and ROM. 


e SIM48’s command set includes load, breakpoint, 
assemble, list (disassemble), trace, call and execute 
commands (as seen in DDT and ZSID). 

e SIM48 allows you to simulate all software operations of 
the 8748/8048, yet costs 1/20th of an In-Circuit Emulator. 

e SIM48 is CP/M compatible. Supplied on an 8” SSSD 
diskette. 

e SIM22 (for Intel 8021/8022’s) and SIM51 (for Intel 
8751/8051’s) soon to be released. 


$150.00 SIM48 Manual 


missing from WordStar, such as_ sorted directory 
listings, fast scrolling, and trial printing to the screen. 
All editing commands are single-letter and easily 
changed. Detailed manual included. WRITE is 
$239.00. 


Plus shipping and handling. 
N.Y. State residents add sales tax. 
Mastercard/Visa 


locical Systems 


6184 TEALL STATION 
SYRACUSE, NY 13217 
(315) 457-9416 


WORKMAN & ASSOCIATES 


112 Marion Avenue 

Pasadena, CA 91106 

(213) 796-4401 
Ail US orders are postpaid. We ship from 
stock on many formats, including: 8", Apple, 
NorthStar, Osborne, KayPro, Monroe, Otrona, 
Epson QxX-10, NEC/PC, DEC VT-180, TI 
Professional, Access, Morrow. Please request 
our new catalog. We welcome COD orders. 


SIM48, SIM22, and SIM51 are trademarks of Logical Systems Corporation 
CP/M, ZSID. and DDT are trademarks of Digital Research. 
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RSA Cryptography System (Listing continued, text begins on page 16) 
Listing Four 


CAUTION: LEND = LENI 

¢<FROD -- Byte array, contains the product (byte modulus MODULO) 
of NUMI * NUM2. The MSDigit(s) are in 
FRODi1) and the LSDigit‘s) are in PROD(‘LENP). 


“LENE -- Integer variable, defines length of FROD array. 
CAUTION: LENF = LEN] + LEN2 

“QUOT -- Byte array, contains the quotient (byte modulus MODULO) 
of NUM1i / NUM2. The MSDigit(s) are in 
QUOT(1) and the LSDigit(s) are in QUOT(LEN®). 

*LEN@ -- Integer variable, defines length of QUOT array. 
CAUTION: LEN@ = MAX(LEN1 - LEN2, 1) 

“REMN -- Hyte array. contains the remainder (byte modulus. 


MODULO) of NUM1 / NUMS. The MSDigit‘s) are in 
REMN(1) and the LSDigit(s)? are in REMN(LENR). 


“LENR -- Integer variable, defines length of REMN array. 
CAUTION: LENR = LEN2 
“MODULO -- Integer variable, defines the arithmetic modulus that 


is to be used. MODULO has a byte-wide effect and 
should be between 2 and 1238 (e.g. 100 for Decimal 
Numbers and 128 for ASCII Characters). 

CAUTION: The Arrays MUST have the same modulus and 
MUST be positive (unsigned) for proper operation vast 


ARRAYS USED: NUM1 ¢*) ,NUM2(*),SUM(*),DIFF (*) ,PROD(*) , QUOT (*) ,REMN(*) 
EXTERNALS: 
UPDATE HISTORY: INITIAL RELEASE —- 01/18/83 CEB 


eH HH HEHEHE HEHE HHH HHH HHH HH 


subroutine mpadd(numl,leni,num2, len2, sum, lens, modulo) 


byte numi(l),num2¢(1),sum(1) 
integer leni,len2,lens,modulo,add,carry 


if (lens == maxO(lenl,len2)+1) # SUM array have sufficient length? 


iF 
. 


idxsum=lens # get the index to the LSDigit of SUM 

idxni=leni # get index to LSDigit of NUM1 

idxn2=len= # get index to LSDigit of NUM2 

carry=0 # initialize CARRY 

while (minO(Cidxni,idxn2) » 0) # look at each packed character 


+ 
u 


itempl=numitidxni)s itemp2=num2(idxn2) # byte to integer 
add=carrytitempltitemp2 # get sum 
sum(idxsum) =mod(add,modulo) # generate SUM value 
carry=add/moduloa # generate CARRY for next pass 
idxnisidxni-i # move indices to next position 
ldxn2=idxni-1 
idx sum=idxsum-l 

if (idxn2 == 0) # ist number still has data”? 
while (idsuni = 0) # look at rest of ist number 


{ 


itempl=numi‘tidxni) # byte to integer 
add=carrytitempi # get sum 
sumtidxsum)=modiadd,.modulo) # generate SUM value 


(Continued on page 30) 
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Don’t call her cheap. Call her beautiful. 





The Bonnie Blue’ 


Word Processing System for the IBM Personal Computer 





It’s obvious what makes her so cheap, but what makes 
Bonnie Blue so beautiful? Bonnie Blue is a new and easy-to-use 
word processing program for the IBM Personal Computer. 


The Full System. The Bonnie Blue System includes in one 
program a full screen Editor, a Printing module and a useful 
Toolbox. It includes the features you've come to expect, and 
more: 


complete cursor control: by character, word, line; page up and 
down instantly; go to top, bottom of document; auto scroll 
towards top or bottom 

word wrap 

margin justification, centering 

adjustable margins, tabs, indents 

reformat paragraphs 

move, copy, delete, paste blocks 

find with delete, insert, replace and wild card characters 

keyboard remapping 

multi-line headers, footers 


Bonnie Blue can handle lines longer than the screen is wide, 
by horizontally scrolling the line. And, unlike some programs, 
Bonnie Blue lets you include any displayable character in your 
text, such as block graphics and foreign language characters. 


Unique Features. With Bonnie Blue, you can “paint” 
display attributes onto your text, by the character, word, or 
line, or automatically as you enter text. With the monochrome 
adapter, you can paint any combination of underlined, bold, 
reverse video or blinking. With an 80 column monitor and the 
color/graphics adapter, this translates into a palette of 16 color 
combinations to choose from. And if your computer has both 
monitors, Bonnie Blue lets you use them both, shifting back 
and forth as you wish. 


Powerful Printing Module. You can use these colors or 
display attributes to highlight text on the screen, and Bonnie 
Blue can remove them from a file when you want (all files 
created by Bonnie Blue are DOS standard). The Printing 
module understands these text attributes, and you can map 
them into any single printer function or combination. 

For example, normally you would want underlined text to 
print underlined. But you can tell Bonnie Blue to print 
underlined characters as both underlined and bold. Bright text 
on the screen can mean double struck, or emphasized and in 
italics. You are at the controls. 

The first Print formatting module supports all the text 
capabilities of the Epson MX series with Graftrax Plus. By the 
time this ad appears, we will be supporting other popular 
dot-matrix and letter quality printers. 

More than thirty “dot” commands give you added control of 
the format of your finished document. You can send it to a disk 
file instead of the printer, or preview the final page formatting 
on the screen. 


Toolbox. The Toolbox isa set of useful functions, called 
“filters” that allow you to extract information from your files 
and transform their content. With these tools, you can join 
files together, sort lines of text, count words, find and 
substitute patterns, etc. Writers and programmers find this a 
useful collection of productivity enhancers. 


Bonnie Blue is also great for a hard disk system. A thorough 
User’s Guide, complemented by help screens and roadmaps, 
make the Bonnie Blue an exceptionally easy-to-learn and 
easy-to-use system. 

Order yours today, or send for our free brochure. Bonnie 
Blue is available exclusively from Bonnie Blue Software, 
P.O. Box 536, Liverpool, NY 13088. 


IBM Personal Computer is a trademark of |BMCorp. Epson Graftrax Plus is a trademark of Epson America Inc. 


[} Send me the Bonnie Blue System. | am 


Bonnie Blue Software (c2.oesbx338, 


(] Please send literature. 














enclosing $50 (NY State residents please Ihavea 

add 7% sales tax). 
[] Checkenclosed () VISA (C) MasterCard Sorry, no COD. Minimum 
Credit Card No. Bxpitee: 0.5. recommended system: 

IBM PC, 128K, 2 disk drives, 
Signature PC-DOS 1.1 or 2.0, 80-column 
monitor or monochrome adapter, 

Name or both, Epson MX-80 or 
Address MX-100 with Graftrax Plus. 
6 __§_ viate =e Versions available soon for PCjr. 


Company. 


Write for details. 
184 


Circle no. 6 on reader service card. 








RSA Cryptography System (Listing continued, text begins on page 16) 
Listing Four 


carry=add/modulo # generate CARRY for next pass 
idxni=idxni-1l # move indices to next position 
1dxsum=idxsum-1 

> 


else # 2nd number still has data? 


t 


while (idxn2 + 0) # look at rest of 2nd number 

itempli=num2tidxn2) # byte to integer 
add=carrytitempl # get sum 
sumtidxsum)=mod(add,modulo) # generate SUM value 
carry=add/modulo # generate CARRY for next pass 
idxn2=idxn2-1 # move indices to next position 
1dxsum=i1dxsum-1 

sum(idxsum)=carry # put final CARRY in SUM 

ldxsum=idxsum—-1 # move index next position 

while (idxsum + 0) # finish filling in SUM 


{ 


sum(idxsum)=O # zero out remainder of SUM 
ldxsum=idxsum-1 # move index to next position 


. 
4 


} 
else # cannot generate SUM 

Can “rm k ins 2 

call error(*Length of [SUM] too small !!!."°*) # print message ® exit 
return 


end 


HHEHHHRHRHEHSHHFSFHSHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHRHRHHHHHHHHHHRHHH 
subroutine mpsubt (numil,leni,num2,len2,diff,lend, modulo) 


byte nmumitl)d,num2(1),diff (1) 
integer lenl.len2, lend, modulo, subt,borrow 


if ((lend += leni) & (leni *= len2)) # DIFF array have sufficient length 
# and NUM1 at least as big as NUM2? 


£ 

idxdif=lend # get the index to the LSDigit of DIFF 

idxni=lenil # get index to LSDigit of NUM1 

idxn2=len2 # get index to LSDigit of NUM2 

borrow=0 # initialize BORROW 

while fidxnZ * O) # look at each packed character 
itempl=numitidxni)s ittemp2=num2at(idxn2) # byte to integer 
subt=borrowtitempl-itemp2 # get difference 
if (subt “< ©) # need to do MODULO’*s complement? 


ut 
. 


subt=modulot+subt # do MODULO’s complement 
borrow=-1 # indicate borrow 


%. 
4 


else # everything is okay 
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borrow=0 
diff (idxdif)=subt # generate DIFF value 
idxni=idxni-1l # move indices to next position 
idxn2=idxn2-1 
idxdif=idxdif-1 
} 
while (idxni = ©) # look at rest of ist number 
itempl=numitidxni) # byte to integer 
subt=borrowtitempl # get difference 
if (subt “< O) # need to do MODULO’s complement? 
{ 
subt=modulot+subt # do MODULO’*s complement 
borrow=-1 # indicate borrow 
else # everything is okay 
borrow=0 
diff(idxdif)d=subt # generate DIFF value 
idxnisidxni-1il # move indices to next position 
Ldxdif=idxdif-l 
if (borrow == 0) # NUMI += NUM2°? 
while (idxdif »* ©) # finish filling in DIFF 


f 


difftidxdif)=0 # zero out remainder of DIFF 


(Continued on next page) 
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Spacing on WordStar 


You are reading text printed by WordStar in 


proportional spacing, providing a profes- 
sional, easy to read, typeset appearance. 


















C COMPILER 


e FULL C 

@ UNIX* Ver. 7 COMPATABILITY 

e NO ROYALTIES ON GENERATED CODE 

e GENERATED CODE IS REENTRANT 

e¢ C AND ASSEMBLY SOURCE MAY BE INTERMIXED 
e UPGRADES & SUPPORT FOR 1 YEAR 

C SOURCE AVAILABLE FOR $2500 


HOST 6809 PDP- 11*/LSI-11* 8080/(Z80) 8088/8086 
TARGET TARGET TARGET TARGET 
FLEX*/UNIFLEX* | $200.00 “\ 7 ae 


OS-9* 





Complete details between words, are 
for printing in provided. The tech- 
proportional spa- niques will work on 
cing directly from all versions of 











WordStar, setting Wordstar, and will 
two or more fully drive Diablo, 
justified columns Xerox, Qume, NEC, 
on a page, and and other daisy- 
underlining spaces wheel printers. 


Above text printed on a daisywheel printer direct from WordStar. 
Now you can have the professional appearance of typeset 
text. Using PS is as easy as turning on bold or underline and is 
done right in your document, then printed by WordStar 
automatically! 
PS ON WordStar-S20 postpaid 
Please send me Copies. Enclosed is my check (or Visa/MC# and 
exp. date) for $__________, made out to: 
WRITING CONSULTANTS 
Suite 165 / 11 Creek Bend D: ive 
Fairport, New York 14450 


Orders Only, Cali Toll Free 1 -800-227 -3800 Ext. 7018 
Dealer inquires invited. 


PCDOS*/CP/M86* 
8088/8086 





*PCDOS is a trademark of IBM Corp. MSDOS is a trademark of MICROSOFT. 
UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of digital 
Equipment Corporation. FLEX/UNIFLEX is a trademark of Technical Systems 
consultants. CP/M. and CP/M86 are trademarks of Digital Research. OS-9 is a 
trademark of Microware & Motorola. 


408-275-1659 


TELECON SYSTEMS 
1155 Meridian Avenue, Suite 218 
San Jose, California 95125 













Circle no. 64 on reader service card. Circle no. 70 on reader service card. 
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RSA Cryptog raphy System (Listing continued, text begins on page 16) 
Listing Four 


idxdif=idxdif-1 # move index to next position 


% 
4 


% 


else # NUMI < NUM2 (error) 
{ 
eall fae Krio.-s- > 
call error¢* C(NUM17 «< CNUM2] in sSubtraction.*) # print message 
# & @xit 


, 
4 


else cannot generate DIFF 


oo 


Cail reek ne." 2 
Call error’ tength of TDIFFI- too small or CNUMT? <-CNUMS) -) th 
# print message ®& exit 


return 


end 


HHRPHARR ARASH PHS RHRHA RRR HP HR RHAH AHHH RHE AHHH RRR HH EE Ht 
subroutine mpmult(numi,leni,num2, lens, prod, lenp,modulo) 


byte numil(1l),num2 (1),prod(1) 
integer leni,lenZ,lenp,modulo,mult,carry 


if (lenp += lenitlen2) # PROD array have sufficient length? 
{ 
ldxn2=len2 # get index to LSDigit of NUM2 
do idxprd=1,lenp # clean out PROD 
prodtidxprd)=0 
while (idxn2 = ©) # multiply numbers 
idxprd=lenp+(idxn2-len2) # get index to PROD 
if (num2Cidxn2) == ©) # multiplier zero? 
{ 
carry=0 # set CARRY (product) to zero 
idxprd=idxprd-leni # get index to FROD 
else # finite multiplier value 
idxni=leni # get index to LSDigit of NUMI 
carry=0 # initialize CARRY 
while (idxnl + ©) # multiply a "digit" at a time 


fr 
L 


itempl=numilidxni): itemp2=num2l(idnn2) # byte to 

LttempS=prodlidxprd> # integer 

mult=carrytitempl#*#itemp2titemps # get product 

prod (idxprd)=modimult,modulo) # generate new product 
# value 

carry=mult/modulo # generate CARRY for next pass 

idxni=idxni-1l # move indices to next position 

ldxprd=idxprd-1 

* 


prodtidxprd)=carry # save CARRY for next pass 


(Continued on page 34) 
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programmers 
READ THIS... 


NOW, | KNOW | CAN MAKE BIG MONEY WRITING AND SELLING MY 
PROGRAMS. THIS BOOK TOLD ME WHAT TO WRITE — WHO TO SELL 
(T TO — THOUSANDS OF NAMES, ADDRESSES, IDEAS, GUIDELINES. 


“SOFTWARE WRITER’S MARKET” IS A FANTASTIC BOOK! 















WHO TO SELL YOUR PROGRAMS TO 
THOUSANDS OF COMPANY NAMES AND ADDRESSES, ° 
WITH DETAILED LISTINGS SHOWING: yy 
(1) WHAT PROGRAMS PUBLISHERS ARE LOOKING FOR 
(2) HOW THEY WANT YOU TO SUBMIT YOUR PROGRAM 
(3) HOW MUCH THEY PAY — AND WHEN! ‘ 
100 CATEGORIES — FROM “ACCOUNTS RECEIVABLES 
TO “GAMES” TO “VIDEO CONTROL” PROGRAMS 
* HOW TO WRITE CLEAR DOCUMENTATION 

* DEBUGGING TECHNIQUES 


6 ek & .67s6 68-6 eS =e we oer ONS ele LS Bie el Seer eee eae pe ee eT Se ee Le eR ee Se 


Enclose check or money order 
for $19.95 (No C.0.D.’s) to: 
IPF Publications Address 
146 Country Club Lane 
Pomona, NY 10970 
(914) 354-5585 City 
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RSA Cryptog raphy System (Listing continued, text begins on page 16) 
Listing Four 


idxn2@sidxn2-1 # move index to NUM2 to next position 
* 
< 


else # cannot generate FROD 
{ 
call rmrkin¢’® <" 
call errori*Length of CFPROD] too small !!'!.*) # print message & exit 


return 


end 
HHHEHHHHHHEHHHHHHRHHHHHHHHHHHHHHRHHHHHHHHHHHSHHHHHHHHHRHHHAHHEHHHRERHERE REE 


subroutine mpdivinuml,lent,num2, lend, quot,leng,remn,lenr,modulo) 


byte numi(1),.num2¢(1),quot(1),remn (1) 
integer leni,len2,lenq,lenr,modulo,div,mult,add,borrow, carry, flag,scale, 
gqtest 


equivalence (borrow, carry,flaq), (div,mult, add) 


if ((lenqg = leni-len2) & (lenr == len2) & (mumi(l) == 0) & 
(num2¢i) '= 0)) # QUOT & REMN arrays have sufficient length and 
# valid numerator & denominator? 
do idxquo=l,leng # clean out QUOT 
quot (idx quo) =O 
do idxrem=1,lenr # clean out REMN 
remn(idxrem) =O 
flag=0 # initialize numerator zero flag 
do idxni=2,leni # check numerator for Zero 


a 
. 


tf (mumitidxnti) !'= 0) # non-zero "digit" found? 
{ 
flag=1 # indicate non-zero numerator 
break # exit DO loop 


J 


i’ 
2 


fe 

# could check for Numerator «<= Denominator here !!! 
He 1f (Numerator == Denominator) 

# QUOT = i 

sé REMN = © 

a else if (Numerator «< Denominator) 
+ QUOT = G& 

a REMN = Numerator 

# else 

af continue 

+ 

if 


(flag !'= QO) # non-zero numerator? 
- 


& 


itempl=numZ(1) # byte to integer 
scale=modulo/(itempl+i) # get normalizing scale factor 
if (scale > 1) # normalization required? 


ir 
u 


carry=0 # initialize CARRY 

ldxni=leni # initialize numerator pointer 

while (idxni > 0) # normalize numerator (Continued on page 36) 
lili pins ae A RU ee re A ik eg eS eae 
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COHERENT" IS SUPERIOR TO UNIX" 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn’t just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT: 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 
Mark Williams Company 


1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 





(iM) Mark 
Williams 
Uy Company 


COHERENT is a trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 


Circle no. 68 on reader service card. 
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RSA Cryptography System (Listing continued, text begins on page 16) 
Listing Four 


t 


itempl=numltidxni) # byte to integer 

mult=carrytscale*#itempl # get product 

numi (idxnil)=mod(mult,modulo) # generate new product 
# value 

carry=mult/modulo # generate carry for next pass 

idxnil=idxuni-1l # move index to next position 


carry=2 # initialize CARRY 


idxn2Z=len2 # initialize denominator pointer 
while (idxn2 + ©) # normalize denominator 
itempl=num2(idxn2) # byte to integer 
mult=carry+scale*itempl # get product 
num2(idxn2)=mod(mult,modulo) # generate new product 
# value 
carry=mult/modulo # generate carry for next pass 
Ldxn2=idxn2-1 # move index to next position 
# else NUMIC1) == 0, so scaling is already done 
ldxni=1l # initialize index of NUMI 
while (idxnl «<= (leni-len2)) # calculate quotients 
if (num2¢1l) == numitidxni)) # get initial test quotient 
qtest=modulo-l 


else 


< 
itempl=numiltidxnids itempt=num2il) # byte to integer 
if (Cidxniti)? <= lenl) # valid index? 
itemp2=numl (idxni+l) 
else # no 
1temp2=0 
qQtest=(modulo*itempi+itemp2) /itemps 
itemp2=numif(idxni):s ttemp4=num2(1) # byte to integer 
if (len2 *= 32) # valid index? 
1templ=num2 (2) 
else # no 


ittemp1l=0o0 
if (¢Cidxnitl) <= leni1) # valid index? 
L 
itempl=numi (idxnit+i) 
if (¢idxnit2) «<= lenl) # valid index? 


LtempS=numl (idxni+2) 
else # no 
itempS=0 
else # no 
itempst=0 
itemps=0 
while (qtest*itempl > (modulo*(modulo*itemp2+itemps- 
Qqtest*itemp4) +itempS5) ) 


# check if test quotient is too large 


tam a a 
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a SSS 


C 

qtest=qtest-—l 

a 
idxns=len2 # initialize index to NUM2 
ldx=idxnitlen2? # initialize index to NUMI 
borrow=0 # initialize HORROW 


while (idx == idxnl) # perform multiply & subtract 


r 
‘e 


if (idxn2 = 0) # another "digit" of NUM2? 
itempl=num2t(idxn2) # byte to integer 
borrow=borrow-qtest*itempl 


3 


itempl=numiltidx) # byte to integer 
div=borrowtitempl # generate mult. & sSubt. 
if (div = ©) # need to do MODULO’s complement”? 
{ 
borrow=div/modulo # get BORROW for next pass 
div=mod(div.modulo) # MODULO*s complement 
if (div < 0) # still need to make DIV positive? 


t 


div=modulotdiv # make it positive 
borrow=borrow-1i # adjust borrow 


. 
- 


% 
4 


else # everything is okay 

borrow=0 
numi¢idx)=div # update numerator 
idxn2=idxn2-1 # move indices to next position 


1dx=i1dx-1 
idx quo=leng-(leni-len2)t+idxni # get index to QUOT 
if (borrow '= ©) # need to add back divisor’? 


{ 


quot (idxquo)=qtest-1 # adjust quotient 
idxn2=len2 # get index to NUM2 
1dx=idxnitlen2? # get index to NUMI1 
carry=0 # initialize CARRY 
While (idx *3= idxnmi) # add back 
{ 
if (idxn2 > 0) # another "digit" of NUM2"7 


a 
% 


itempl=num2(idxn2) # byte to integer 
carry=carrytitempl # add it back 
? 
itempli=numitidx) # byte to integer 
add=carrytitempl # add it back in 
if (add == modulo) # need to adjust ADD? 
add=add-modulo # pull ADD back into range 
carry=1 # set CARRY for next pass 
else # no adjustment 
carry=0 # no carry 
numitidx)=add # update numerator 


(Continued on next page) 


ee eee 
a7 
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RSA Cryptog raphy System (Listing continued, text begins on page 16) 
Listing Four 


idxn2=idxn2-1 # move indices to next position 
idx=idx-1 


% 
4 


LJ 


else # no add back needed 
quot (idxquo)=qtest # generate quotient 
idxni=idxni+i # move index to next position 
+ 
idxni=leni-len2+i # get index to NUM1 
idxrem=lLenr-len2+1 # get index to REMN 
borrow=0 # initialize BORROW 
while (idxni <= lenl) # unnormalize remainder 
itemplt=numitidxni) # byte to integer 
div=itempit+modulo*borrow # get numerator of REMN 
remn(idxrem)=div/scale # remove normalization 
borrow=mod(div,scale) # get borrow for next pass 
idxni=idxniti # move indices to next position 
idxrem=idxrem+l 
idxn2=1 # get index to NUM2 
borrow=0 # initialize BORROW 
while (idxn2 <= len2) # unnormalize NUM2 
{ 
itempl=num2tidxn2) # byte to integer 
div=itempi+modulo*borrow # get numerator of NUM2 
numZ(idxn2)=div/scale # remove normalization 
borrow=mod(div.scale) # get borrow for next pass 
idxn2=idxn2+1l # move index to next position 
+ 
else # cannot generate QUOT & REMN 
Gallo rmerKine” "3 
call remark (*Length of CQUOT] or CREMN] too small or .*) 
call error(*invalid numerator or denominator !!!.%*) 
# print message and exit 


return 


end 


End Listing Four 
Listing Five 


HHH REHRRRE HHH RRRSHE HERR BH EHFRHRSEESHE FEHR SSRREAERHRESEHRER RARE 


##+ HG 
+ Hot Copyright 1983, Charles E. Burton, Denver, Colorado Hee 
oe kop HHH 
### All rights reserved. Permission granted to use this software for ### 
HHH personal, non-commercial purposes only. Atk 
wih Hate 


FRR H HAH PPR TH APE EHE BES PHEHHEE PHBE ES PEEEHHEHHHHEHHHHHHH BRHHHHRHHHHHHHHHH RHEE 


# PROGRAM NAME: RPEASANT. RAT 
# FURFOSE: Russian Peasant exponentiation (re. D.E. Knuth, 
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LANGUAGE: RATFOR 
AUTHOR: CEB 
USAGE: CALL RFEXP(NUM1,LEN1,NUM2,LEN2, 


modulus MODULO) 
in NUM*#¢1) and 


array. 


in MODL(LENM). 


FH+HeHHHHHHHHEHHEH HHH OHH HHA HHH HH FH +H 


The Art of Computer Frogramming, 
=znd Ed., (Addison-Wesley, Reading. MA). pp. 442-443, ) 


<>NUM* -- Byte array, curtail fs the number CNUM* mod MODLJ 


NUM2 is never modified, 


V. 2 (Semi-Numerical Algorithms), 


«EXPN, LENE, MODL,LENM, WORK, LENW, MODULO) 


to be operated on. The MSDigit(s) 
the LSDigit(s) are in NUM*(LEN#*). 


CAUTION: LENI = LENM 
SEXPN -- Byte array, contains the exponentiation 


be used in the calculations (byte modulus MODULO). 
The MSDigit(s) are in MODL(1) and the LSDigiti‘s) are 


CAUTION: MODL(1) != 0 
“LENM -~- Integer variable, defines tara bh of MODL array. 
WORE -- KByte array, a working array needed to do modulus 
arithmetic using MODL, i.e. £€ ? mod MODLI. 


(byte 


are 


but NUM1 is always modified ! 
SLENI/2 -- Integer variable, defines the length of the NUM* 


(byte modulus 


MODULO) of CNUM1 ** NUM2 mod MODLJ]. The MSDigit(s) are 
im EXPN(1) and the LSDigit‘s) are in EXPN(LENE). 

“LENE ~~ Integer variable, defines length of EXPN array. 
CAUTION: LENE = MAX(LEN1, LENM) 

“MODL -- Hyt@® array, contains the modulus of the arithmetic to 


(Continued on next page) 





Six Times Faster! 


Super Fast Z80 Assembly Lan 
Z80ASM 





















e Complete Zilog ® Conditional assembly 
Mnemonic set e Assemble code for 

e Full Macro facility execution at another 

® Plain English error address (PHASE & 
messages DEPHASE) 

e One or two pass e Generates COM, HEX, 
operation or REL files 


© Over 6000 lines/minute ® COM files may start at 
© Supports nested other than 100H 


INCLUDE files ¢ REL files may be in 

e Allows external bytes, ae or 
words, and expressions 
(EXT 1 * EXT2) e Separate PROG, DATA 


® Labels significant to 16 ene aes 


characters even on ei a 
externals (SLR Format °° “cepts symbol defini- 
Only) tions from the console 


® Flexible listing facility 
includes TIME and 
DATE in listing (CP/M 
Plus Only) 


© Integral cross- reference 
e Upper/lower case 
optionally significant 


For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 


guage Development Package 


SLRNK 


@ Links any combination © COM may start at 
of SLR format and other than 100H 















Microsoft format REL e HEX files do not fill 
files empty address space. 
e One or two pass e Generate inter-module 
operation allows output cross-reference and 
files up to 64K load map 
@ Generates HEX or COM_~_ e Save symbol table to 
files disk in REL format for 
e User may specify PROG, use in overlay 
DATA, and COMMON generation 


loading addresses e Declare entry points 
from console 


® The FASTEST Micro- 


“4° 
iy PT? soft Compatible Linker 
spl Os et available 











e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
- Librarian and Manual for just $199.99. Manual only, $30. 


e Most formats available for Z80 CP/M, CDOS, & TURBODOS 
® Terms: add $3 shipping US, others $7. PA add 6% sales tax 


L R__Systems 


Circle no. 57 on reader service card. 
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RSA Cryptog raphy System (Listing continued, text begins on page 16) 
Listing Five 


“LENW -~- Integer variable, defines length of WORE array. 
CAUTION: LENW = (LEN2 + 1) SNUM2 temp. > 
(Ree Ac ENE +> 1 “Numer ator + 
+ MARLENE = LENM, °1) “Quotient + 
+ LENM “Remainder > 
“MODULO -- Integer variable, defines the arithmetic byte modulus 
that is to be used. MODULO has a byte-wide effect 
and should be between 2 and 128 (e.g. 100 for Decimal 


Numbers and 128 for ASCII Characters). 
CAUTION: The Arrays MUST have the same modulus and 
MUST be positive (unsigned) for proper operation !!! 


ARRAYS USED: NUM1(*),NUM2(*),EXPN(*) ,MODL (*) , WORK (*) 
EXTERNALS: MPMULT,MFDIV 
UPDATE HISTORY: INITIAL RELEASE -- 01/20/83 CEB 


HEt+HHHEHHHHHHHAH HHH + 


subroutine rpexp(numl.lenl,num2, len2,expn, lene,modl,lenm,work, lenw, modula) 


byte numici)d,num2(1),expn(1),mod1l (1),work (1) 
logical maskit,bit,temp,nextf 
integer leni,len2,lene,lenm, lenw, modulo,mask,basmod 


if ((leni == lenm) & (lene *= maxO(lenil,lenm)) & 
(lenw = (len2t+1)+(lenit+tlenet!l) +maxO(lene-lenm,1)+lenm) ) 
# NUM1, EXFN & WORE arrays have sufficient lengths? 


basmod=1 # initialize basic modulus 
repeat # find basic modulus 

basmod=2*basmod # advance basic modulus 
until ((basmod == 128) | (modulo/basmod == 1)) # basic modulus found 
do idxexp=1l.,lene # initialize EXFN array 

expn (idxexp) =O 
expntlene)=1 # set EXPN=1 
do idxn2=1,len2 # copy NUM2 to temporary NUM2 

work (idxn2+1)=num2tidxn2) 
work (1)=0O # make sure it starts with zero (for MAKBIN routine) 
idxn2=len2 # get index to NUM2 
nextf=.true. # initialize next pass flag 
while (nextf) # generate Russian Feasant exponential 

call makbintwork,idxwrk, temp,basmod, modulo,len2Z,idxn2,nextf) 

# make temporary NUMZ binary 
mask=1 # initialize bit mask 
while (mask «= basmod) # run through bits within each byte 
# of NUM2 


r 
XY 


maskit=mod(mask,256) # get LSByte of MASE 
bit=temp & maskit # get appropiate bit of NUM2 
if (bit '= 0) # need to multiply NUM1 by EXPN? 

call prdmodtexpn,lene,numl.,leni,modl,lenm, 

work (idxwrk),moduloa) 
# generate EXFN = (EXFN*#NUM1) mod MODL 
call prdmodinuml,leni,numl.leni,modl,lenm,work (idxwrk), 
modulo) # generate NUM1 = (NUM1*NUM1) mod MODL 

mask=2*mask # move to next mask bit 


oe 
w) 


(Continued on page 42) 
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Original IBM Debug Program 





Mylstar Symbolic Debugger V1.1 


The plain and simple difference is that Mylstar's 
Symbolic Debugging Program speaks to your IBM 
PC in alanguage you both can understand, plain 
and simple. 

Employing the same command structure, it 
allows you to use symbol names, mathematical 
expressions, batch files, on-line help, multi- 
command macros and other time-saving entries. 


*Designed for |BM PC-DOS 1.1 with 128K RAM minimum 


MYLSTAR 
ELECTRONICS 
INC. 


165 West Lake Street 
Northlake, Illinois 60164 





A Columbia Pictures Industries Company 


It's the enhancement to the /BM Debug 
Program you've been looking for—because it fills in 
the gaps—shortening the frustrating debugging 
process by as much as 50%— leaving you more time 
to do the work you need to do and the work you want 
to do, plain and simple. 

Mylstar’s Symbolic Debugging Program has 
been programmer-tested for over a year at Mylstar 
Electronics, Inc., (formerly D. Gottlieb & Co.), 
designers of the video arcade game, Q*BERT™ 


Mylstar Electronics, Inc., 

165 W. Lake St., Northlake, IL 60164 

Please send me Mylstar’s Symbolic Debugging 
Program for use with the IBM PC computer. Enclosed 
is $125, plain and simple. 


Check Money Order 118 
NAME 
FIRM 
ADDRESS 
CITY STATE ZIP 


Illinois residents add 7% sales tax 
Allow 2-4 weeks for delivery 


Circle no. 37 on reader service card. 
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RSA Cryptography System (Listing Continued, text begins on page 16) 
Listing Five 


idxn2=idxn2-1 # move to next NUM2 Digit 


else # cannot generate Russian Feasant Froduct 


{ 
Call rmirkini 3 3 
call error (* Length of CNUM1], CEXPN] or CWORK] too small /!'!.7) 
# print message & exit 
return 


enc 
HHHHHHHHHHHHHRHHHEHEHRHHRHHHHHHHHHHHHHHEHHHHHHHHHHSHHHHHHHHHHHHHHHEHHHHHRHHH 


# FRDMOD -- Froduct Modulo Routine: NUMi = (‘NUM1L*®NUM2) mod MODL 
subroutine prdmod(numli,leni,num2,len2,modl,lenm,work, modulo) 


byte numitl).,num2ti),modl (1).,work (1) 
integer leni,len2S,lenm, modulo 


lenp=lenitlenS # initialize length of product of NUML & NUM2 
call mpmult (numi,leni,num2,len2.,work,lenp.modulo) # multiply NUM1 & NUM2 


tf (work(l) '= 0) # need to shift result for normalization in Division? 


< 


idxsum=lenp # initialize index to product 
while (idxsum > ©) # shift result down 1 byte 


¢ 


work (idxsumti) =work (idxsum) 
idxsum=idxsum-1 # move index to next position 
work(1)=0O # set MSDigit to zero 
lenp=lenpt+i # advance sum length 
idxquo=lenp+i # initialize pointer to start of Quotient array 
leng=maxO(lenp-lenm,1) # get Quotient length 
idxrem=idxquotleng # initialize pointer to start of Remainder array 
call mpdiv(work,lenp,modl,lenm,work (idx quo),leng, work (idxrem),lenm, modulo) 
# generate (NUM1*NUM2) mod MODL 
idxend=idxremtlenm-1 # initialize index to end of remainder 
idxni=lenl # get index to NUMI 
while (idxend += idxrem) # remainder digits are available 
numi (idxni)=work(idxend) # move remainder to NUM1 
idxni=idxni-1i # move indices to next position 
idxend=idxend-1i 
while ¢idxni = 0) # any Digits left in NUMI 
numitidxnl)=O # zero it 
ldnxl=idxni-1 # move index to next position 


return 


end 
FHT AERHS HEH EEHEHHHEHEHHHSHEHHSHHSHHHHHHHHEHEHHHHHHEHHHESHHHRHHHRHEHSHH 


# MAKBIN -- make sure Temporary NUM2 is binary 


rn 
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subroutine makbin‘(work,idxwrk,temp,basmod,modulo,len2,idxn2,nextf) 


byte work(l),bmod 
logical temp, next¢ 
integer idxwrk,basmod, modulo, len2,idxn2 


lenw=len2Z+l # get length of work 

nextf=.false. # initialize next pass flag 

if (basmod '!'= modulo) # NUM2 modulus not binary? 
idx quo=lenwtl # get index to quotient 
leng=len2 # get length of quotient 
idxrem=idxquotlengq # get index to remainder 
bmod=basmod # integer to byte 


call mpdiv‘(work,lenw,bmod,1i.work (idxquo),lenq,work (idxrem), 


1,modulo) 


# make temp. NUM2 binary 


temp=work (idxrem) # get binary temporary NUM2 
idx quo=idxquotleng-1l # get index to quotient 
idxwrk=lenw # get index to work 


while (idxquo = lenw) # move quotient to temporary NUM2 for next pass 


ae 
. 


if (worktidxquo) '= ©) # still digits left? 
| nextf=.true. # flag a next pass 
work (idxwrek) =work (idx quo) 
idx quo=idxquo-l # move indices to next position 
idxwek=idxwrk-1l 
while (idxwrek = 0) # zero out remainder of temporary NUM2 
work (idxwrk) =O 
idywrk=idxwerk-1l # move index to next position 


%, 
4 


else # NUM2 modulus 185 binary 
1 


if (idxn2 > 1) # still digits left? 
nextf=.true. # flag a next pass 
temp=work (idxn2+1) # get binary temporary NUM2 
iduwrk=lLenwtl # get index to start of unused work area 
return 


end 
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Introduction to PL/C: 


Programming Language for Compilers 





s LSI densities and chip yields in- 
A creased steadily, it became apparent 

that our ability to produce new and 
more powerful processors exceeded our 
ability to produce supporting software. 
An examination of technology advances 
indicates that hardware gains are due as 
much to the development of an appro- 
priate tool technology as to the amount 
of direct resources expended. Efforts 
in the software domain, however, appear 
to have been directed much more toward 
producing immediately usable _ results 
than toward advancing the state of the 
art; the problem is made worse by the 
high cost of the talent required to im- 
plement system software. 

One solution, seen by many quite 
early in the game, was to make soft- 
ware that could be transported from one 
processor to another in either of two 
ways: The machine code could be trans- 
ported, or high-level language source 
programs could be transported and 
recompiled for the new machine. 

The first approach works well as 
long as the machine codes remain constant 
from processor to processor and the 
destination processor operates in a man- 
ner functionally equivalent to the source 
processor. The primary drawback is a 
(perhaps unhappy) marriage to a fixed 
set of operations and instruction formats. 
The advantages and drawbacks are 
exemplified by IBM’s 360 and 370 series 
mainframes. That architecture is now over 
fifteen years old. Its preservation has 
allowed the transporting of code from 
model to model, but it has also inhibited 
technological growth. 

The second approach to portability 
works well provided that the high-level 
language facility exists for the destination 
processor and that the high-level language 
compilers produce functionally equivalent 
object modules. The primary disadvantage 
of this approach is that the required 
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structured and totally procedural 
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language facility often arrives well after 
the processor. Also, as a consequence of 
normal system software development 
(wherein we keep reinventing the same 
old wheel), the language processors 
frequently do not produce functionally 
equivalent object modules. 

The PL/C language has been devel- 
oped to address the problems inherent 
in the second approach. PL/C makes 
possible the implementation of compiler 
core programs in a processor-indepen- 
dent form, enabling compilers to be 
developed with much greater speed than 
before. The PL/C compiler program has 
itself been implemented in a processor- 
independent form. Listing One (page 50) 
is the PL/C listing for the compiler itself. 
It requires approximately 24 subroutines 
(a total of about 2K bytes to complete 
its implementation for any given proces- 
sor. Listing Two (page 54) is the compiler 
in macro-assembler code. 


PL/C Structural Notation 


A PL/C program consists of a se- 
quence of labeled statements, followed 
by an unlabeled statement consisting 
of the word ‘‘end” (in either upper or 
lower case), followed by a semicolon. 
For convenience we will set the end state- 
ment aside as a special case and refer 
to labeled statements simply as “‘state- 
ments.”’ 

Statements begin with a label, which 
may be followed by any number of PL/C 
specification items, and end with a 
semicolon. A label consists of a PL/C 
statement name followed by a colon 
(or “::="). A statement name consists 
of a left angle bracket (<), followed 
by the name, followed by a right angle 
bracket (>). The name itself may contain 
imbedded blanks. 
within a PL/C statement as a specification 
item, there must be a statement labeled 
with the same name. Obviously, syntax 
definition must continue until all syntac- 
tical elements have been resolved to 
literal values. 

Ordering of statements is arbitrary, 
except that the first statement must be 
the highest level of definition used. 


PL/C syntax is fully defined in Table I 
(page 47). 


PL/C Program Structure and Flow 


It is helpful to think of PL/C as a 
strictly structured and totally procedural 
programming language in which the first 
statement of any program is the main 
procedure and all subsequent statements 
are subprocedures. That way, all syntax 
item specifications within the body of 
each statement may be regarded as 
subprocedure calls. The control flow 
map of any PL/C program, then, is a tree 
structure at every node of which is a 
PL/C specification item. 

A node may or may not be classified 
as “‘output producing.’ Output may 
consist of data collected from the input 
string undergoing compilation, or it may 
be data generated explicitly by an output 
specification. The PL/C language provides 
for the ordered passing of output data 
up the tree structure from node to node. 
The output data passed all the way up 
to the initial node becomes “actual” 
output: the result of the compilation 
process. Operationally, then, a compiler 
programmed in PL/C is not much dif- 
ferent from most other compilers. The 
real differences lie in the development 
process. 

PL/C program flow control is entirely 
implicit: no language facility exists for 
explicit transfer of control. Since most 
programming errors are flow related, this 
strictly structured approach minimizes 
many common errors. The problem of 
attempting to enforce internal structured - 
programming standards is avoided: not 
only does the language itself make the 
use of explicit flow control statements 
seem unnatural, but it also de-emphasizes 
the entire concept of “flow” by dispensing 
with the usual notion that control passes 
from statement to statement in the order 
in which the statements appear. In ad- 
dition, the structured approach makes 
it easy to partition the development 
effort and removes most of the difficulties 
involved in follow-on maintenance and 
enhancement. 
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The BNF (Bakus-Naur Format) 
description of the target language con- 
stitutes the bulk of the compiler code. 
Because published BNF descriptions are 
readily available for every major pro- 
gramming language in use, the entire 
scanning logic for a compiler in effect 
is available on an “‘off the shelf’ basis. 
This allows the development effort to 
be concentrated where it belongs: in the 
generation of correct and_ efficient 
compiler output. 


Syntactical Elements 

The PL/C programming language is 
a natural extension of the BNF notation 
for language syntax definition and 
description. PL/C extends BNF in three 
essential ways: 


1. An output facility has been provided. 


2. Input collection and symbol manip- 
ulation facilities have been added. 


3. A facility has been included to 
permit in-line inclusion of instruc- 
tions and/or data for processing at 
assembly time. 


Some changes of notation from BNF 
are necessary. Character literals in BNF 
are normally undelimited; in PL/C 
they are delimited by single quotes 
in order to deal with the space character. 

The asterisk (*), used to denote the 
optional occurrence of a specification, 
is placed following the optional item 
specification. For example: 


<procedure keyword>: := 
'PROC' 'EDURE"; 


indicates that the character string ‘““PROC”’ 
is required at the current point in the 
input file being scanned. Once this require- 
ment is satisfied, the string ““EDURE” 
is permitted but not required. Thus the 
specification ‘‘procedure keyword” may 
be satisfied by either the string ““PROC” 
or the string ““PROCEDURE.”’ 

The dollar sign ($) is used to denote 
the occurrence of a specification one or 
more times to satisfy the containing 
specification. An example of its use 
might be: 


<integer>::= <decimal digit> $; 


where the specification “integer” will 
be satisfied if ‘‘decimal digit’’ is satisfied 
one or more times. 

The dollar sign and asterisk may be 
combined to indicate that many optional 
occurrences of the specification are 
permitted. For example: 


<skip>:= ' °$*; 
will cause the compiler to scan to the 
next nonblank character in the input 
stream. If the character at the current 
point in the input stream is not a space 
character, the scan will not advance; 
however, the “skip” specification will 
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not fail since the space(s) are only per- 
mitted, not required. 

The vertical bar (|) is used to indicate 
that, should the preceding specification 
fail, the following specification is to be 
accepted by the compiler as a valid alter- 
native. For example: 


<arithmetic atom>::= 
<constant> | <variable>; 


indicates that the specification ‘“‘arith- 
metic atom” will be satisfied by the 
success of either the ‘‘constant’’ specifi- 
cation or the ‘“‘variable’’ specification. 
If the ‘“‘constant”’ specification is satis- 
fied, the ‘“‘variable’’ specification will 
not be checked. 

All statements are terminated with a 
semicolon. PL/C programs use a free 
format, which means that a specification 
(statement) may extend over as many 
lines as desired and that several statements 
may be coded in a single line; in short, 
line (record) boundaries are ignored. 


PL/C Output Facilities 

Output specifications in PL/C may 
occur anywhere within the containing 
specification and are enclosed in brackets 
({]). Three modes of output are available 
under the current implementation: 


Character string output 


Re-ink any fabric ribbon for 


less than 5¢. Extremely simple 


operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi- 
colored inks, uninked 
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$5495 + 





Order Toll Free 1-800-547-3303 
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Hexadecimal value byte output 
Subordinate node output 


Character string output is accom- 
plished by enclosing the string to be 
generated in single quotes. For example: 

<finis>::=<skip> 'END' j 'end' 

<skip> ';" [°END*"}]: 
will bypass blanks, find the keyword 
“END” in either upper or lower case, 
bypass any following blanks, and, if a 
semicolon follows, output the character 
string ““END”’ (in upper case, as specified). 

Numeric output is accomplished by 
enclosing one or more pairs of hexa- 
decimal digits in angle brackets, as follows: 


<S370 SVC Op Code>::= [XOA>]; 


Nodal output is accomplished by spec- 
ification of the subordinate node’s posi- 
tion relative to the output specification: 
where the most recent output-producing 
node is 1, the next most recent is 2, and 
so on. In the following example: 


<pointer>::= <internal label> 
[DC ALAC? TE) * 7: 
if “internal label’ is satisfied, the specifi- 
cation will output the string ''DC AL4(" 
and follow it with the output of the 
“internal label” specification, concluding 
with the closing right parenthesis. When 


Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 


$9900 
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multiple nodal output specifications are 
used together, they must be separated 
by commas. 

Note that, for node numbering 
purposes, output specifications are not 
considered to be output-producing spec- 
ifications. Also, for output purposes, 
a sequence of specifications separated 
by vertical bars is considered to be a 
single node. 


Assembler Code Insertion 
and Built-In Functions 


Assembler code may be inserted 
at any point between specifications 
by enclosing the code in double angle 
brackets, as follows: 


<< Title 'PL/C [V2.0] 
COMPILER MAINLINE’ >> 


An assembler instruction may be in- 
serted at any point between specifications 
in the containing statement by coding 
an ampersand (&) followed by the as- 
sembler op code mnemonic or macro 
name. If operands are used, they are 
enclosed in parentheses and must immedi- 
ately follow the operation mnemonic. 
For example: 


<dummy spec>::= 
& COPY(DSNAME) &CSECT; 


A minimal set of built-in functions 
has been implemented for the current 
PL/C compiler using this facility. For 
example, a SKIP macro calls an assembler 
language subroutine to advance the scan 
pointer to the next nonblank character; 
this approach speeds up the PL/C compiler 
considerably. Another example is the 
MEMB macro, which generates a call 
to another assembler language subroutine 
to check the character at the current 
scan point for membership in the char- 
acter string supplied as an argument to 
the macro. Thus: 


<decimal digit>::= 
et cd ee cA ae 
4 ‘Boat ep let eo "OFT; 
can be replaced by the less cumbersome 
and more rapid: 


<decimal digit>::= 
&MEMB('0123456789') [1]; 


This permits the incorporation of 
any special facility that may be required 
either for performance or to meet language 
requirements (such as attribute analysis 
for PL/C structure elements). We recom- 
mend that this method be reserved for 
incorporation of new PL/C facilities 
and that target compiler code be generated 
using the text inclusion method (angle 
brackets). 


Development History 


The PL/C [V1.0] compiler (the 
initial version) was implemented in Tech- 
nical Design Labs’ Zapple BASIC on a 
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Z80-based microprocessor system. The 
entire program required approximately 
550 BASIC statements and was adequate 
only to compile the PL/C compiler itself. 
The PL/C [V2.0] compiler required only 
44 PL/C statements, which was fortunate 
since the PL/C [V1.0] compiler processed 
approximately 15 statements per hour. 


The output of the BASIC version was 
a string of macro assembler statements, 
all of which were macro invocations 
describing common high-level compiler 
functions. These macro invocations were 
generated in a form acceptable to most 
macro assemblers (as were those of sub- 
sequent versions), so the PL/C compiler 
has existed in a processor-independent 
form from its earliest stages. 

A set of approximately two dozen 
macros was written to generate Z80 
microprocessor instructions. Nearly all of 
the macros were expanded to compiler 
subroutine calling sequences, and the 
appropriate set of compiler subroutines 
was written in Z80 assembler language. 
These macros and subroutines are the 
only processor-dependent code involved 
in implementing the PL/C compiler. 

The common subroutine source code 
file was concatenated to the generated 















gran>::= < 
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compiler mainline file, as was the macro 
definition file. The composite assembler 
source file was assembled using Tech- 
nical Design Labs’ macro assembler 
program. 

PL/C [V2.0] was up and running 
after eight iterations of the process just 
described. This version was functionally 
equivalent to PL/C [V1.0] and compiled 
at a rate of approximately two statements 
per second — a considerable speed im- 
provement over the original BASIC pro- 
gram! At this point, the PL/C source code 
was rewritten to provide much greater 
power and flexibility, additional built-in 
functions were brought into play, and ex- 
isting functions were made more flexible. 


In generating PL/C [V3.0], which 
produces Z80 BASIC assembler source 
code, the macro definitions were main- 
tained in a separate file and were brought 
into play via an ‘.INSERT‘ statement 
generated as part of a prolog generated by 
PL/C [V2.1]. The common subroutines 
were maintained in a separate relocatable 
object library and were not made a part 
of the object compiler until link-edit 
time. This approach permitted separation 
of compiler components into segments 
that were much easier to maintain. 
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PL/C [V3.0] was judged adequate 
for generation of additional compilers; 
with this version, we considered the PL/C 
programming language implementation to 
be complete. Additional PL/C compiler 
programming activity is categorized as 
either maintenance or enhancement. 


Availability of PL/C 


Readers may obtain a personal-use 
(non-commercial) PL/C license and Z80- 
executable versions of PL/C Compilers 
which generate TDL Assembler and Macro 
code, the PL/C Subroutine Library in re- 
locatable object form, and PL/C User 
Manual for $25. On receipt of payment I 
will send a license agreement to be signed 
and returned. On receipt of the license 
agreement I will mail the diskette. Com- 
mented source listings of the PL/C 
subroutine library (on diskette) and 
commercial licenses are also available. 
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hex digit>::= <digit> | "An | BE] tet | tt | Et | IRE; 
<parenthetic group>::= ! '¢# *(' <action speced$ * '$# ')! 


<modifier>*; 





<modifier>::= 1 ge <optionally many> | <one or more> | 
| | Mopthoni> Keli’; 
| Sontioonl iy many>ts= 9" 7 SF OFT: 
: <one or more>::= '$'; 
Seba 
- alt>ies ' '$* *{* <sean item>; 
<output item>::= ' '$# *[* <output speed>$ ' '$* 'J'; 
eee spec>::= <node spec> | <output string> | <output value>; 
<node spec>::= <node number> ( ' '$* ',' <node number> )$*; 
<node akberS eck | '$* <digit>$; 
 <output stritg> tr <string>; 
_ Soutput value>ri= * '$* '<' * '$* <hex pair>$ * '$* '>'; 
<semi>z:= ' '$* 15%; 


| gend>::- ' t$# 'END' | tend! <semi>; 


end; -. (Listing begin on page 50) 
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PL/C Compiler Listing (Text begins on page 44) 
Listing One 


<<. TITLE "PL/C [2.2] Programming Language for Compilers! 

-SBTTL ‘Copyright (C) 1981 - MRD Systems, Inc., POB 147, Spring Valley, MN' 
eMAIN. ::CALL SINIT# | ; Initialize Compiler 

>> 


<program>: <statement>$ <end> [2.1]; 

<statement>: <gen block> | <compiler statement>; 

<gen block>: <generate> [1] &FLSH; 

<generate>: &SKIP '<<' &COLL(ON) &NEXT('>>') &COLL( OFF) P4412 

<compiler statement>: <statement label> <statement body> 
2.12 RTRN 

'] &FLSH; 


<statement label>: <compiler label> &SKIP ':' ':='"# &SYMB(3) [! 
e tHe 
9 


mans ds 

<compiler label>: &SKIP '<' <label root> <label segment>$* &SKIP '>' [3,2]; 
<label root>: &SKIP &COLL(ON) <letter> <alphanumerio>$* &COLL(OFF) [2,1]; 
<letter>: <lower case> | <upper case> [1]; 

<lower case>: &MEMB( 'abedefghijklmnopaqrstuvwxyz') [1]; 

<upper case>: &MEMB( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ') [1]; 

<alphanumeric>: <letter> | <digit> [1]; 

<digit>: &MEMB( '0123456789') [1]; 

<label segment>;: ' ' &SKIP &COLL(ON) <alphanumeric>$ &COLL(OFF) [' '1]; 
<statement body>: <action specification> <semi> | <statement body> [2,1]; 
<action specification>: <generate> | <scan item> | <output item> C143 


<scan item>: <scan call> | <macro call> | <scan string> |} <sean value> } 
<parenthetic group> [1]; 


<sean call>: <compiler label> <modifier>* &SYMB(2) 
[ ? XFER 14% f5% ; 3! 
tJ; 
<macro call>: &SKIP '&' <built in> |} <user macro> Ct]; 


<built in>: <next> | <member> |} <collect> ETI 


(Continued on page 52) 
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The Text Processing Language. A 
text-file runoff program  con- 
sisting of a set of text-processing 
primitive commands from which 
more complex commands 
(macros) can be built (as in Logo). 
Features include: 

e Complete customization of 
text processing through 
macro definition and expan- 
sion, looping structures, and 
conditional statements; 

e Adapts to any printer; 

e Pagination; 

e Text justification and center- 
ing; 

e Indexing and tables of con- 
tents; 

e Superscripts and subscripts; 

e Bolding and underlining; 

e Multiple headers and footers; 

e End notes and footnotes; 

e Widow and orphan suppres- 
sion; 

e Floating tables and ‘keeps.’ 
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DBX 


Blocked Keyed Data Access 
Module. Maintains disk files of 
keyed data. Can be used for 
bibliographies, glossaries, multi- 
key data base construction, and 
many other applications. 

e Variable-length keys; 

e Variable-length data; 

e Sequential access and rapid 
keyed access; 

e Single disk access per opera- 
tion (store, find, delete) in 
most cases; 

e Multiple files; 

e Dynamic memory allocation 
for RAM-resident index and 
current “page” of entries; 

e Includes demonstration pro- 
gram and testbed program. 


$50 
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PLANE 


Planimetry program: 


e Bit-pad entry of cross sec- 


tions; 

e Real-time turtlegraphics 
display; 

e Calculation of areas; 

e Saves calculations to text 


file. 
$100 


FORMAT PRODUCT PRICE —— 
1] 8” UCSD SSSD () DBX $ 50 
1) 5%” Apple Pascal _) PDMS $250 
1) 5%4” UCSD IBM PC 320k Cr. $ 50 eae 
0) 8” CP/M SSSD 0) ZED $ 50 
(11 514” IBM MS-DOS 1) MINT $ 50 
(1 51%4” CP/M Osborne L) SCINTILLA $250 
(}) CHROME $100 
CL) PLANE $100 


Appl d Apple Pascal are trademarks of the APPLE Computer Corp. IBM and IBM PC are trademarks of International Business 
Machines, UCSD Pascal is a trademark of the Regents of the University of California. Osborne is a trademark of Osborne Com- 


puter. EPSON is a trademark of EPSON America, Inc. C. Itoh is a trademark of C. Itoh Electronics. 
Circle no. 42 on reader service card. 


= MasterCard 


(Please include card * 
and expiration date) 


The Pascal Data Management 
System. A_ user-oriented data 
management system in_ which 
numeric and alphanumeric data 
are stored in tables with named 
columns and numbered rows. 
Currently being used for dozens 
of different kinds of business and 
scientific applications, from in- 
ventory management to laborato- 
ry data analysis. Includes over 20 
Pascal programs; more than 
10,000 lines of code. Main 
features include: 


e Maximum of 32,767 rows per 
file; 
e Maximum of 400 characters 
per row, and 40 columns per 
table; 
Full-screen editing of rows 
and columns, with scrolling, 
windowing, global search/ 
replace, and other editing 
features; 
Sorting, copying, merging, 
and reducing routines; 
Mailing label program; 
Reporting program generates 
reports with control breaks, 
totals and subtotals, and 
selects rows by field value; 
many other reporting 
features; 
Cross-tabulation, correla- 
tions, and multiple regres- 
sion; 
Video-display-handling 
module; 
e Disk-file-handling module. 


Many other features. UCSD for- 


mats only. 
$250 


[] vISA 


SUBVERSIVE 
SOFTWARE 





C] Check 


ZED 


Full-screen text editor; designed 
to be used either with -TPL or by 
itself. 
e Full cursor control; 
e Insert mode with word wrap; 
e ‘Paint’ mode; 
e Single-keystroke or dual- 
keystroke commands; 
¢ Command synonyms; 
¢ Global search and replace; 
¢ Block move, block copy, and 
block delete. 


$50 


SCINTILLA 


A log logit curve fitting program 
for radio-immunologic data; must 
be used with PDMS (described 
above). 

e Multiple protocol files; 

© Quality control files; 

e Four-parameter non-linear 


curve fit. 
$250 


UCSD formats only. 


MINT 


A terminal emulation program for 
communication between com- 
puters of any size. 

e User-configurable uploading 
and downloading of files; 

e X-ON/X-OFF and 
EOB/ACK protocols; 

e Interrupt-driven serial input 
(for Prometheus Versacard in 
Apple II); 

e Printer-logging. 


$50 


1-800-XPASCAL 








[J c.o.D. 


A division of Pascal & Associates, 


135 East Rosemary St., Chapel Hill, NC 275: 








PL/C Compiler Listing (Listing continued, text begins on page 44) 
Listing One 


<next>;: '"NEXT' | 'next' &SKIP '(' <string> &SKIP ')' <modifier>*# 


[' NEXT rat ty 

a3 

<member>: 'MEMB' | 'memb' &SKIP '(' <string> &SKIP ')' <modifier># 
i MERE RP 

ys 

<collect>: 'COLL' | 'coll' &SKIP '(' <col on> | <col of f> &SKIP ')! 
[* COLL 2" 

'; 


<col on>: 'ON' {| 'on' ['ON']; 
<col off>: 'OFF' | ‘off! ['OFF']; 


<user macro>: <label root> <macro parameter list>* [! '2e1° 


Ri 


<macro parameter list>: &SKIP '(' <macro arg> <addl macro arg>$* &SKIP ')! 
t? 3,2]; 


“macro arg>: <string> | <macro value> | <label root> [1]; 
<string>: &SKIP '''' &COLL(ON) <string character>$ &COLL(OFF) ''?t! [<60>2<60>]; 
<string character>: <alphanumeric> | <special> | <string quote> Et] 


<special>: &MEMB(' !"#$%&() #:=-{[ ]}~*+;@1\ <,>.2/ 
E13 


<string quote>: &COLL(OFF) '''t'' gcoLL(ON) ['''']; 
<macro value>: &SKIP &COLL(ON) <digit>$ &COLL(OFF) [1]; 
<addl macro arg>: &SKIP '.' <macro arg> ['.'1]; 


<sean string>: <string> <modifier>* [' SCAN ‘oye 


t]e 
9 


<scan value>: &SKIP '#' '''! <hex pair>$ &SKIP '''! <modifier>*# 
[% SCNR "<60>3<60>','1! 
‘a3 


<hex pair>: &SKIP &COLL(ON) <hex digit> <hex digit> &COLL( OFF) [2,1]; 
<hex digit>: &MEMB( '0123456789ABCDEF') [1]; 


<parenthetic group>: &SKIP '(' <action specificatiom>$ &SKIP ')' <modifier>*# 
&LGEN &LGEN [' XFER at tst 
GOTO "41? 

f2';'5' RTRN 


wa he tA 8 


een ree ea lea a 
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<parenthetic body>: <action specification> &SKIP ')' | <parenthetic body> La, ta} 


<modifier>: &SKIP <alt mod> | <optionally many> | <one or more> | 
<optional> | <default zero> [1]; 


<alt mod>: <multi alt> | <single alt> [1]; 

<multi alt>: '$* &SKIP '"}' ['6']; 

<single alt>: '"{' ['4']; 

<optionally many>: '$' &SKIP '#' ['3']; 

<one or more>: '$! ['2']; 

<optional>: '#' [1'74']; 

<default zero>: ['0']; 

<output item>: &SKIP '[' <output spec>$ &SKIP ']J' [2]; 

<output spec>: <node spec> | <output string> | <output value> [1]; 


<node spec>: <node number> <addl node number>$* [2,1]; 


(Continued on next page) 


of WAIMEA 
Menu Driven Programs running under SPELLBINDER 


Deer ohn E> will free your operators from entry 


errors. Completely menu driven Mailing List Management Programs 
with thoughtfully formatted screens to ease the entry of addresses and 
names. Integrity of the data file created is automatically verified. No 
more printing ‘bad’ mailing labels with misplaced data; AND each add- 
ress record can be individually classified to allow inclusion (or exclu- 
sion) when printing labels or form letters. 


Break Through the (10 Programs) "89.50 
—_ Barrier! spiMlenu oBHelp make your version of 


Spellbinder menu driven. No more fumbling through manuals for 

FORTH-32™ lets you use up to one megabyte obscure or little-used commands. The complete instruction set can 

of memory for programming. A Complete be displayed at any time without disturbing the text on the screen. 
Development System! Fully Compatible These two programs put Spellbinder into the world class of word 

Software and 8087 Floating Point Extensions. processors, allowing the user to easily use its truly outstanding fea- 


is (With two help files) $55.00 
Call today toll-free or 


contact a participating AutoSave 


Computerland store. automatically saves the text on the 


screen to a previously named file. Prevents the inadvertent but all so 


303 Williams Ave. - 
common save to a wrong name. Works with source code and program 
Huntsville, AL 35801 
(208) 533-9405 800-558-8088 code as well as with text files. All instructions on disk. 


(3 Programs) 997.90 


Now available for the a Ye toa ose er Tacoma emai Send Check, Money Order, Visa, Master Charge: 
and other PC compatibles! COMPUTER RESOURCES OF WAIMEA 
P.O. Box 1206 


IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM, COMPAQ, Columbia Data Products, and Quest Research, respectively. Kamuela Hawaii 96743 
’ 


Phone: (808) 885-7905 


Quest Research, Inc. 





Circle no. 47 on reader service card. Circle no. 13 on reader service card. 
LEE 
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PL/C Compiler Listing (Listing continued, text begins on page 44) 
Listing One 


<node number>: &SKIP &COLL(ON) <digit>$ &COLL( OFF) 
c= NODE rT? 

=] 

<addl node number>: &SKIP ',' <node number> [1]; 


<output string>: <string> 


[% STOP i 

']; 

<output value>: &SKIP '<* &SKIP <hex pair>$ &SKIP '>! 
ct OHEX mero 

ty]; 


<semi>: &SKIP ';'; 
<end>: &SKIP 'END' | ‘tend! <semi> 
Lf END 
"<1A>]; 
end; End Listing One 
Listing Two 


eITITLE 'PL/C [2.2] Progranming Language for Compilers' 
~SBTTL 'Copyright (C) 1981 = MRD Systems, Inc., POB 147, Spring Valley, MN'* 


-MAIN. ::CALL SINIT# ; Initialize Compiler 
; program 
X0001: XFER X0002,2 ; statement 

XFER X0003.0 ; end 

NODE 2 

NODE 1 

RTRN 


; statement 


X0002: XFER X0004 ,4 ; gen block 2 
XFER X0005,.0 ; compiler statement 
RTRN 


; gen block 


XO004;: XFER X0006 ,0 ; generate 
NODE 1 
FLSH 
RTRN 


>; generate 


X0006: SKIP 
SCAN "Se 50 


COLL ON (Continued on page 56) 
a er ee 
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SOFTWARE DESCRIPTIONS 


TPM (TPM 1) - $80 A Z80 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk 1/0, abbreviated 
commands and more! Available for North Star (either single or 
ae, ee TRS—80 Model | (offset 4200H) or !I, Versafloppy 
or Tarbe 


TPM-II - $125 An expanded version of TPM which is fully CP/M 
2.2 compatible but still retains the extra features our customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side on an 8" disk. Availa- 
ble preconfigured for Versafloppy I! (8” or 5"), Epson QXx-10, 
Osborne Ii or TRS-80 Model II. 


CONFIGURATOR | 
This package provides all the necessary programs for 
Customizing TPM for a floppy controller which we do 
not support. We suggest ordering this on single den- 
sity (8SD). 

Includes: TPM-I! ($125). Sample PIOS (BIOS) SOURCE 
(SFREE). MACRO II ($100). LINKER ($80). DEBUG | ($80). 
QED ($150), ZEDIT ($50), TOP | ($80). BASIC | ($50) and 


we NOW $250 


CONFIGURATOR II 
Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). MACRO Ill ($150). LINKER 
($80), DEBUG | ($80), DEBUG I! ($100). QSAL ($200). QED 
($150), ZTEL ($80), TOP I! ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 
($80) 
$1485 Value NOW $400 
MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80). BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80). ZDDT ($40). ZTEL 
($80), TOP | ($80) and MODEM ($40) 

$680 Value NOW $175 


MODEL Il PROGRAMMER 
This package is only for the TRS-80 Model II. 
It includes: TPM-Il ($125), BUSINESS BASIC ($200). 
MACRO II ($100). MACRO III ($150). LINKER ($80). 
DEBUG | ($80). DEBUG II ($100). QED ($150), ZTEL ($80). 
TOP I! ($100), ZDDT ($40), ZAPPLE SOURCE ($80). 
MODEM ($40). MODEM SOURCE ($40) and DISAS- 


SEMBLER ($80) NOW $375 


$1445 Value 
BASIC I - $50. a 12K+ basic interpreter with 7 digit precision 
BASIC II - $100. A 12 digit precision version of Basic | 
BUSINESS BASIC - $200, A full disk extended basic with 


random or sequential disk file handling and 12 digit precision 
(even for TRIG functions). Also includes PRIVACY command to 
protect source code, fixed and variable record lengths. simultane- 
ous access to multiple disk files, global editing, and more! 


ACCOUNTING PACKAGE - $300. Written in Business 
Basic. Includes General Ledger. Accounts Receivable/Payable. 
and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 
tions needed for other terminals. Provided in unprotected source 
form. 


MACRO | - $80. A Z80/8080 assembler which uses CDL/TDL 
mnemonics. Handles MACROs and generates relocateable code 
Includes 14 conditionals, 16 listing controls. 54 pseudo-ops. 11 
arithmetic /logical ops, local and global symbols. linkable module 
generation. and more! 


MACRO II - $100. An improved version of Macro | with 
expanded linking capabilities and more listing options. Also inter- 
nal code has been greatly improved for faster more reliable 
operation 


MACRO III - $150. Anenchanced version of Macro Il. Internal 
buffers have been increased to achieve a significant improvement 
in speed of assembly. Additional features include line numbers 
cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops. internal setting of time and date. and 
expanded assembly-time data entry 






























QSAL 


Softwar re 





DEVELOPER | 
Includes: MACRO | ($80). DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC 1! ($100) 

$440 Value NOW 150 


DEVELOPER II 
Includes: MACRO 1! ($100). MACRO II! ($150), LINKER 
($80), DEBUG | ($80), DEBUG |! ($100), BUSINESS BASIC 
($200), QED ($150), TOP I! ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 


DISASSEMBLER ($80). 
NOW $350 


$1280 Value 


DEVELOPER Ill 
Includes: QSAL ($200), QED ($150), BUSINESS BASIC 


($200). ZTEL ($80) and TOP II ($100) 
$730 Value NOW $300 


COMBO 
Includes: DEVELOPER II ($1280). ACCOUNTING PACK- 
AGE ($300). QSAL ($200) and 6502X eae 

W $500 


LINKER - S80. A linking loader for handling the linkable 
modules created by the above assemblers 


DEBUG | - $80. A too! for debugging 280 or 8080 code 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers Traces code even through ROM Commands include 
Calculate. Display. Examine. Fill. Goto. List. Mode. Open File. Put. 
Set Wait. Trace. and Search 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display. Trace 
options. and Zap FCB 


6502X - $150. A 6502 cross assembler Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as our Macro assemblers 


QSAL - $200. A SUPER FAST 280 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like structures: repeat. until. if. then. else. 
while do. begin.end, case...of. Multiple statements per line 
special register handling expressions. long symbol names. auto 
and modular assembly. and more! This one uses ZILOG Mnemonics 


QED - $150. A screen editor which is both FAST and easy to 
learn. Commands include block delete. copy. and move to a 
named file or within text. repeat previous command. change. 
locate. find at start of line. and numerous cursor and window 
movement functions. Works with any CRT having clear screen, 
addressable cursor, clear to end of line, clear to end of screen, and 
80X24. 

























$1930 Value 


DISK FORMATS 


When ordering software specify which disk format you would like. 


CODE DESCRIPTION 


8SD 8" IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) 
8DD 8” Double Density (256 bytes/26 sectors/77 tracks) 
8XD 8” CDL Extended Density (1024 bytes/8 sectur/77 traceks - 616K) 


5SD 5.25" Single Density (TRS80 Model !. Versafloppy |. Tarbell 1) 


5EP 5.25" Epson Double Density 

5PC 5.25” IBM PC Double Density 

5XE 5.25" Xerox 820 Single Density 

50S 5.25” Osborne Single Density 

5ZA 5.25" Z80 Apple (Softcard compatible) 





ZTEL - $80. An extensive text editing language and editor 
modelled after DEC’s TECO. 


ZEDIT - $50. A mini text editor. Character /line oriented. Works 
well with hardcopy terminals and is easy to use. Includes macro 
command capability. 


TOP | - $80. A Text Output Processor for formatting manuals. 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number, head- 
ing. subheading. centering. and more. 


TOP II - $100. A superset of TOP !. Adds: embedded control 
characters in the file. page at a time printing. selected portion 
printing. include/merge files. form feed/CRLF option for paging, 
instant start up. and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your own custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM. Acommunication program for file transfer between 
systems or using a system as a terminal. Based on the user group 
version but modified to work with our SMB board or TRS-80 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - S40. For making your own custom 
version. Requires one of our Macro Assemblers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB |! Bare Board $50. “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face. 4K memory (ROM, 2708 EPROM. 2114 RAM). and power 
on jump. When used with Zapple ROM below, it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB 1/Il hardware. pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595, Add 280 capability to your 
IBM Personal Computer. Runs CP/M programs but does not 
require CP/M or TPM. Complete with Z80 CPU, 64K add on 
memory, serial port. parallel port, time and date clock with 
battery backup. hard disk interface, and software to attach to 
PC DOS and transfer programs. Mfr'd by QCS. 

50% Discount on all CDL software ordered at the same time as 
a Big Blue (and for the Big Blue) 

APPLE II — Chairman 280 $345, Add 280 capability to your 
Apple Il/ll Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/D0S as well as 
the Z80), TPM. QSAL assembler, QED Screen Editor, and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple Z80 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE 280 DEVELOPER 
includes: 6502X ($150), MACRO 1! ($100), MACRO III 
($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG | 
($80), DEBUG 1! ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) 
NOW $325 


VALUE: $1250 
$175 when purchased with AMT “Chairman” Board 


ORDERING INFORMATION: 
VISA/MasterCard/C.0.D. 
Call or Write With Ordering 


Information... 


OEMS: 
Many CDL products are available for 
licensing to OEM's. Write to Carl 
Galletti with your requirements. 

Dealer Inquiries Invited. 











TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 


CODE DESCRIPTION 


TPM I: NSSD/H North Star Single Density for Horizon 1/0 
NSSD/Z North Star Singte Density for Zapple !/0 
NSDD/H North Star Double Density for Horizon 1/0 
NSD0/Z North Star Double Density for Zapple |/0 
TRS80-| TRS-80 Model | (4200H Offset) 
TRS80Il =TRS-80 Model II 
vis Versafloppy | 8" 
VI5 Versafloppy | 5.25" 

TPM-ll:  Vu8 Versafloppy I! 8” (XD) 


Vil5 Versafloppy I 5.25" 
TRS80Il_ =TRS-80 Model II (XD) 


Prices and Specifications subject to change without notice. 
TPM. Z80. CP/M. TRS80 are trademarks of CDL. Zilog, DRI and Tandy respectively. 


For Phone Orders ONLY Call Toll Free... 
(Except Pa.) 


1-(800) 458-3491 


Ask For Extension #15 


For information and Tech Queries call 


(609) 599-2146 


Computer Design Labs ..... 


342 Columbus Avenue/Trenton, NJ 08629 


Circle no. 10 on reader service card. 





Advertise During» 


Months 


May - June - July 


June Space Reservations Deadline: 
April 5, ‘84 
Material Deadline: 
April 12, ‘84 


Contact: 
Walter Andrzejewski 
Beatrice Blatteis 
Alice Hinton 


Dr. Dobb's Journal — 


P.O. Box E 
Menlo Park, CA 94026 



































Get the power of your Z80, and the elegance 
of direct access to CP/M functions 
from your high level programs with 


SYNLIB utility library 


SYNLIB consists of MICROSOFT compatible object 
code that may be called from any high level language 
that uses MICROSOFT parameter passing conventions. 


SYNLIB gives you extremely powerful array and buffer 
manipulation using the Z80 LDIR instruction; program 
access to the CP/M CCP console command line; high 
speed disk block I/O; a high quality random number 
generator, hex to ASCII conversion optimized by special 
Z80 instructions; program chaining; and more. 


And, because our programmer abhors a vacuum, each 8” 
floppy comes packed with some of the most valuable 
public domain software, including available source, ab- 
solutely free. You get SWEEP, a menued disk utility that 
makes a computer phobe a systems programmer, 
UNSPOOL, so you can print and use your computer 
without buying an expensive buffer; /, to get multiple 
commands on a line; MODEM7, so that you too can join 
the free software movement; and many others. 

SYNLIB $50.00 8” SSSD CP/M format 

SOURCE: $100.00 
Licensing for commercial use available. 
SYNTAX CONSTRUCTS, Inc. 
14522 Hiram Clarke, Houston, Texas 77045 
(713) 434-2098 


CP/M is a registered trademark of Digital Research, Inc. 
Microsoft is a registered trademark of Microsoft Corp. 




















Circle no. 63 on reader service card. 


if you use CP/M? 
then you need 
DISK FIX! 


DISK FIX is a disk editor which can 
display, edit or copy any sector of a 
CP/M floppy and/or hard disk. The 
DISK FIX utility can be used to recover 
files from disks with damaged direc- 
tories, to reconstruct files with bad sec- 
tors, to restore erased files and to do 
general disk editing. 


DISK FIX automatically configures to 
floppy and hard disks, just insert the 
program disk and it is ready to run. A 
single CPU license is available for $150. 
Call our software HOT LINE 
906 / 228-7622. 
The Software Store 
706 Chippewa Square @ Marquette MI 49855 
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PL/C Compiler Listing 


Listing Two (Listing continued, text begins on page 44) 


NEXT 
COLL 
NODE 
RTRN 


22 <0 
OFF 
1 


; compiler statement 


X0005: 


XFER 
XFER 
NODE 
NODE 
STOP 


FLSH 
RTRN 


; statement 


KOOOQ7: 


we 


XFER 
SKIP 
SCAN 
SCAN 
SYMB 
STOP 


NODE 
STOP 


NODE 
STOP 
RTRN 


X0007 ,0 
X0008 ,0 
2 
1 


® 


; compiler label 


X0009: 


SKIP 
SCAN 
XFER 
XFER 
SKIP 
SCAN 
NODE 
NODE 
RTRN 


reo 2 
X000A,0 
X000B, 3 


SO 


3 
2 


; label root 


XOOOA: 


SKIP 
COLL 
XFER 
XFER 
COLL 
NODE 
NODE 
RTRN 


ON 
X000C,0 
XOOOD, 3 
OFF 

2 

1 


RTRN 


statement label 
statement body 


compiler label 


label root 
label segment 


letter 
alphanumeric 
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; letter 

X000C: XFER 
XFER 
NODE 
RTRN 


; lower case 


XOOOE: 


; upper case 


XOOOF : 


MEMB 
NODE 
RTRN 


MEMB 
NODE 
RTRN 


XO00E, 4 
XOOOF, 0 
1 


lower case 
upper case 


“abedef ghijklmnopqrstuvwxyz* ,0 


1 


* ABCDEFGHIJKLMNOPQRSTUVWXYZ ~ .0 


1 


; alphanumeric 


XOOOD: 


; digit 


X0010: 


XFER 
XFER 
NODE 
RTRN 


MEMB 
NODE 


RTRN 


X000C, 4 
X0010.0 
1 


*0123456789° 


1 


; label segment 


XOOOB: 


SCAN 
SKIP 
COLL 
XFER 
COLL 
STOP 
NODE 
RTRN 


; statement 


X0008: 


XFER 
XFER 
XFER 
NODE 
NODE 
RTRN 


& 2a 


ON 
X000D,2 
OFF 


body 


X0011.0 
X0012.4 
X0008 ,0 
2 
1 


; action specification 


X0011: 





XFER 
XFER 
XFER 
NODE 
RTRN 


X0006 ,4 
X0013.4 
X0014.0 
1 
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we we we 


~2.e 06~we WO 


letter 
digit 


alphanumeric 


action specification 


seni 


statement body 


generate 
scan item 
output item 


(Continued on next page) 


IC, PROMPT DELIVERY! 


SAME DAY SHIPPING (USUALLY) ~ 


DYNAMIC RAM 
256K 150 ns $85.00 . 
64K 200 ns 5.97 
64K 150 ns 6.09 
64K 120 ns 6.90 
16K 200 ns 1.56 
EPROM 
27128 300 ns $22.50 
2764 250 ns 8.30 
2732 450 ns 4.75 
2716 450 ns 3.60 
2532 450 ns 4.75 
STATIC RAM 
6264P-15 150ns $35.97 
6264LP-15 150 ns 42.00 
6116P-3 150ns §.75 


MasterCard VISA or UPS CASH COD 
Factory New, Prime Parts Poo 
MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave 
BEGGS, OK. 74421 (918) 267-4961 
Prices shown above are for Jan. 13. 1984 
Please call for current & volume prices. Prices subject to change. Please expect higher 
prices on some parts du ue fo world wide shortages ake oo ind Insurance extra Cash 


discount prices shown. Federal Ex; —— cord d Ai ! Orders received by 6 PM 
CST can be delivered to you by the next morning 





Circle no. 35 on reader service card. 


fe eS 


CP/M2.2 INTRCEPT CDOS 
Ro ST 
NEW version for 1984! 


e Enables programs written for Digital Research 
CP/M 2.2 to run under Cromemco CDOS and 
vice versa. INTRCEPT release 3 automatically 
recognizes the host system, and emulates 
CP/M 2.2 if the host is CDOS, or emulates 
CDOS if the host is CP/M 2.2. 

¢ No programming, delivered ready-to-run. 

¢ Customizable...ccomes with CDOS emulator 
source, CP/M 2.2 emulator source optional. 

e Z8O assembly language, no program or 
operating system modifications. 

$150 w/CDOS emulator source 
$250 w/CDOS & CP/M emulator source 


8” SSSD, inquire about 5%” 
add $3 shipping, add 6% tax in CA 
VISA, MC,check 

























microSystems 
16609 Sagewood Lane 
Poway, California 92064 
(619) 693-1022 
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80 CHARACTER VIDEO BOARD 
¢ WORDSTAR/dBASE Ii OPTION 
e TYPE AHEAD KEYBOARD BUFFER 


e 25 LINE NON-SCROLL OPTION 

e Z80 CPU and 8275 CRTC ~~ S-100 

¢ CHARACTER GRAPHICS 

e ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB —A2 bare board from $49.50 


Simp liway PRODUCTS CO. 
(312-359-7337) 


P.O. BOX 601, Hoffman Estates, IL 60195 
add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 
WORDSTAR is a trademark of MicroPro INTERN'L CORP. 
dBASE is a trademark of ASHTON-TATE CORP. 
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WHY FORTH ? 


fe Genuinely Interactive 
(BASIC is much less interactive) 


e Encourages Modular Programs 
(inefficiency and cluttered syntax 
hamper effective modularization in 
compiled languages) 


e Fast Execution 
(not even C is faster) 


e Amazingly Compact Code 
e Fast Program Development 
e Easy Peripherals Interfacing 


1S/FORTH 


e Fully Optimized for IBM-PC 
IBM-XT IBM-JR and all PCDOS 
compatibles 

e Forth-79 and Forth-83 Modes 

e Full Support for DOS Files, 
Standard Screens and Random 
Access DOS Screen Files 


e Full Use of 8088 Instructions 
(not limited 8080 conversion subset 
of transported versions) 


e Separate Segments for Code, 
Stack, Vocabularies, and Defini- 
tion Lists - multiple sets 
possible 

e Segment Management Support 

e Data Anywhere in Full 
Megabyte 

e Coprocessor Support 

e Multi-task, Multi-user 
Compatible 


e Automatic Optimizer 
(no assembler knowledge needed) 


e Full Assembler 
(interactive, easy to use & learn) 
e Goal Oriented Documentation 
e Free Updates and News until 
June 1985 
e BYTE Sieve Benchmark jan83 
HS/FORTH 47 sec BASIC 2000 sec 
w/AUTOOPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
PS You don’t have to understand 
this ad to love programming in 
HS/FORTH! 





HS/FORTH with AUTO-OPT & 
MICRO-ASM_ $220. 


HARVARD 
SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 


Circle no. 73 on reader service card. 
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PL/C Compiler Listing 


Listing Two (Listing continued, text begins on page 44) 


; scan 


X0013: 


; scan 


X0015: 


; macro call 


X0016: 


item 


XFER 
XFER 
XFER 
XFER 
XFER 
NODE 
RTRN 


call 


XFER 
XFER 
SYMB 
STOP 
NODE 
STOP 
NODE 
STOP 
NODE 
STOP 


RTRN 


SKIP 
SCAN 
XFER 
XFER 
NODE 
RTRN 


> built in 


X001B: 


; next 


X001D: 


XFER 
XFER 
XFER 
NODE 
RTRN 


SCAN 
SCAN 
SKIP 
SCAN 
XFER 
SKIP 
SCAN 
XFER 
STOP 
NODE 
STOP 


X0015 .4 
X0016 ,4 
X0017 ,4 
X0018 4 
X0019 ,0 


0 
X001B, 4 
X001C,0 
; 


X001D,4 
XO01E,4 
XOO1F,0 
1 


~NEXT ,4 
*next~ .0 


eg 
X0020.0 


Eye D 
XOO1A,1 


3 


* ® 
& 


XFER 


NEXT 


we we we we we 


@e we 


we we 


sean call 

macro call 

sean string 

sean value 
parenthetic group 


compiler label 
modifier 


built in 
user macro 


next 
member 
collect 


string 


modifier 


(Continued on page 60) 
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SCHEDULED 
SWIG ACTIVITIES & 
MEMBERSHIP BENEFITS 


(1) $10,000 PROGRAMMING 
CONTEST (Members only) 


(2) NATIONAL COMPUTER 
WEEK (May 11-May 20, 
1984) 


(3) ANNUAL CONFERENCE 
AND SOFTWARE AWARDS 
CEREMONY (During 
National Computer Week) 


(4) CONSULTANT REGISTRY 
(With computer store refer- 
ral system for customized 
software) 


(5) JOB PLACEMENT SER- 
VICE (Free to individual 
members, fixed maximum 
fee to companies) 


(6) FREE SEMINARS & 
MEETINGS LOCALLY 


(7) SOFTWARE LIBRARY 
LENDING & EXCHANGE 
SERVICE (Professional 
quality assemblers, 
utilities, games, etc.) 


(8) SOFTWARE LOCATION 
SERVICE (For companies 
& individuals-if it exists, 
SWIG will find it. If not, 
see #9) 


(9) SOFTWARE DEVELOP- 
MENT SERVICE (From 
novice to scientist, SWIG 
members can work on any 
project-from applications 
to games to R&D) 


(10) LEGAL SERVICE 


(11) AGENT (SWIG can 
represent you in sales to 
software publishers) 


(12) 24 HOUR - 7 DAY BULLE- 
TIN BOARD SYSTEM 
(BBS) ACCESSIBLE BY 
COMPUTER FREE 


(13) AND MORE!!!! 


SOFTWARE WRITERS INTERNATIONAL GUILD 


SWIG" 





THE LARGEST PAID MEMBERSHIP PROGRAMMERS GUILD - 
OVER 5,000 MEMBERS WORLDWIDE!! 


MEMBERSHIP APPLICATION FOR 
SOFTWARE WRITERS INTERNATIONAL GUILD 


NAME 





ADDRESS _ 





CITY STATE ZIP 





PHONE # ( ) 


® CLASSIFICATION: 
LJ NOVICE L}) BEGINNER TO ADVANCED 
() ADVANCED WITH ON THE JOB EXPERIENCE L) RESEARCH/SCIENTIST 


®@ WHAT EQUIPMENT DO YOU HAVE EXPERIENCE WITH &/OR ACCESS TO &/OR 
PLAN TO BUY? 


(} MAINFRAME [) MINI [} MICRO (] DESIGN/R&D 
BRAND NAME(S): L) IBM [] XEROX [} APPLE LI Tl 

(] COMMODORE [] RADIO SHACK [| ATARI [] OSBORNE 
L) TIMEX/SINCLAIR [} NORTH STAR L]) HEWLETT PACKARD 
LJ OTHER 





® AREAS OF INTEREST: 
[] DATA PROCESSING [] BUSINESS APPLICATIONS [J GRAPHICS 
(] LEGAL [} VOICE [) MEDICAL [] APPLIANCE (HOME) CONTROL 
[(] ROBOTICS [] GAMES [] MUSIC L} R&D [J OTHER 





@ MEMBERSHIP ACTIVITIES AND SERVICES OF INTEREST: 
READ THE LIST ON THE LEFT AND CIRCLE THE NUMBERS BELOW THAT APPLY. 
1 2 3 4 5 6 7 8 9 10 11 12 


(] | HAVE ENCLOSED $20 ANNUAL MEMBERSHIP FEE L) CK L] MO 
(MAKE CHECK PAYABLE TO: SWIG) 


RETURN TO: SWIG 
P.O. BOX 87 
STONY POINT, NEW YORK 10980 
(914) 354-5585 


SWIG© SOFTWARE WRITERS INTERNATIONAL GUILD 


Circle no. 59 on reader service card. 


MicroMotion PL/C Compiler Listing 


Listing Two 
(Listing continued, text begins on page 44) 
NODE 1 


STOP 
The Professional Choice. : 


Make if yours. 


Everything for the FORTH user 








RTRN 


; member 


from start to finish. XOO1E: SCAN  ‘MEMB*,4 
SCAN *memb~ .0 
: SKIP 
Meets the 1983 International SCAN ~("<6 
standard for portability XFER X0020.0 ; string 
200 page tutorial and reference OER fg te 
manual acer )*.0 
XFER XOO1A, 1 ; modifier 
Available for APPLE Il and 2-80 STOP : MEMB . 
CP/M (many disc formats) NODE 3 
STOP oe 
Floating point extension NODE 4 
HIRES graphics extension (APPLE || : STOP * 
& North Star Advantage only) sie 
Screen editor with definable 
controls ; collect 
Macro assembler with local labels XOO1F: SCAN *COLL* .4 
Applications SCAN *eoll*.0 
SKIP 
MicroMotion FORTH — $90. - $140. SCAN *(*.0 
Publications XFER X0021 ,4 ; col on 
XFER X ° ; ft 
FORTH-83 Intemational Standard SKIP eee peel fe 
FORTH-83 compatible source SCAN =“ )" 0 : 
listings for 6502, 8080, Z-80 and STOP COLL 
8086 microprocessors eae 2 
FORTH-83 Standard — $15.00 . 
Source listings — $20.00 ate 
; 1 on 
Contact us for our most up-to-date cadens 
product information! X0021: SCAN ‘on*.4 
SCAN OD bel 
STOP * ON * 
RTRN 
= Os ae 
X0022: SCAN ‘OFF’ .4 
MicroMotion SCAN ‘off*.0 
12077 Wilshire Bivd., Ste. 506 STOP *OFF* 
Los Angeles, CA 90025 RTRN 





Circle no. 34 on reader service card. 
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(Continued on page 62) 
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LIFEBOAT 


Associates 
1651 Third Avenue 


New York, NY 10028 
212-860-0300 


Circle no. 28 on reader service card. 


Please send me free information on: 


|} Lattice and development tools 
|} Corporate purchase program 
_] Dealer program 

_] OEM agreements 


|] Send me the complete LIFEBOAT 
software catalog. $3.00 enclosed 
for postage and handling. 


LATTICE, C-FOOD SMORGASBORD and 
LATTICE WINDOW,TM -; Lattice, Inc. 
MICROPRO, TM International Corp. 
SORCIM, TM Sorcim Corp. 


Company 
Address 
City 

State 
Telephone 


LIFEBOAT, TM Intersoft Corp. 

HALO,TM Media Cybernetics 

PANEL, TM Roundhill Computer, Ltd 
PMATE and PLINK,TM Phoenix Software 





Zip 


FLOAT87,TM Microfloat 

IBM and PC, ® TM International Business Machines 
MS,TM Microsoft 

CP/M86,TM Digital Research 





PL/C Compiler Listing (Listing continued, text begins on page 44) 


Listing Two 


; user macro 


X001C: XFER 
XF ER 
STOP 
NODE 
NODE 
STOP 


RTRN 


; macro parameter list 


X0023: SKIP 
SCAN 
XFER 
XFER 
SKIP 
SCAN 
STOP 
NODE 
NODE 
RTRN 


; macro arg 


X0024; XFER 
XFER 
XFER 
NODE 
RTRN 


; string 


X0020: SKIP 
SCAN 
COLL 
XFER 
COLL 
SCAN 
OHEX 
NODE 
OHEX 
RTRN 


XO00A,0 
X0023 ,1 


= 10 


X0020 .4 
X0026 ,4 
XOO0A,0 


1 


s 2 
Pe 


ON 


X0027 ,2 


OFF 
we 


"60! 


2 


"60! 


; string character 


X0027: XFER 
XFER 
XFER 
NODE 
RTRN 


XOOOD, 4 
X0028 , 4 
X0029 ,0 
1 


label root 
macro parameter list 


; macro arg 
; addl macro arg 


we we we 


string 
macro value 
label root 


string character 


alphanumeric 
special 
string quote 
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; special 


X0028: MEMB ~*~ I"#$%8()#: 
40 
NODE 1 
RTRN 


; string quote 


X0029: COLL OFF 
SCAN PE SG 


COLL ON 
STOP se 
RTRN 


; macro value 


X0026: SKIP 


COLL ON 

XFER X0010.2 
COLL OFF 
NODE 1 

RTRN 


; addl macro arg 


=—{[ ]}~*+3@1\ <,>.2/ 


digit 


(Continued on next page) 





C BUILDING 
BLOCKS 


Save a year of development. 


0 IBM PC* Building Blocks ..........................06. $150 
Video & IO routines, string functions, asynchronous port 
control, date, time, random numbers, printer control. 

Over 200 functions. 

O Mathematics Library ..........................0eceeeee $ 66 
Logarithms, trigonometric functions, square root, ran- 

dom numbers. 













O C Cross-reference Utility .........................00005 $ 99 
Cross-reference identifiers and functions. 
O Communications Library ...........................65. $150 





For Hayes Smartmodem7{, modem 7 and xmodem. 

O B-trees & Virtual Memory Management Library ..._ $125 

List handling features. 

O Advanced Building Blocks ............................ $ 99 

Julian dates, dBaselII access, data compression, text windows. 
All Building Blocks use the ‘IBM PC Building Blocks’. 


Source Included. Credit Cards Accepted. Single User License. 
Multiuser licenses available. 


NOUUM 
ORGANUM 


29 Egerton Road, Arlington, MA 02174 Tel: (617) 641-1650 


(TM) IBM* (TM) Hayes Microcomputer Productst (TM) Ashton-Tate* 
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the best VALUE FVM co 
COMMUNICATIONS SOFTWARE PACKAGE 
COMMX-PAC™ 
e COMMX Smart Terminal and File Transfer 
Auto Dial and Logon Files for Easy Linkup 
Protocols for Timeshare, MODEM 7, CRC16 
FORTRAN version available for Mainframes 
e Unattended “Midnite” Electronic Mail 
Subsystem 
e CONSOLX Remote Operation of Your Computer 
e Bulletin Board System with Database Access 
® Database File Management System Included 


e Utilities for Data Encription, Compression, 
and More 


e CPU License $150 Detailed Manual $25 


Contact Your Local Dealer or 
Call or Write For Free Brochure 


AWKEYE GRAFIX 


23914 Mobile. Canoga Park. Ca 91307 ¢ 213/348-7909 USA 


Circle no. 26 on reader service card. 
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PL/C Compiler Listing 
Listing Two 


(Listing continued, text begins on page 44) 


Elegance 


X0025: SKIP 
Power SCAN Se oO 
XFER X0024.0 ; macro arg 
STOP age 
Speed NODE 1 
RTRN 


; sean string 





X0017: XFER X0020.0 ; string 
XFER X001A, 1 ; modifier 
STOP , SCAN . 
as “ NODE 2 
sers’ Group “ee 
Supporting All C Users aie 4 
Box 287 STOP + 
Yates Center, KS 66783 . T 
RTRN 
Circle no. 15 on reader service card. ; scan value 
X0018: SKIP 
SCAN al 
A Professional Quality Z80/8080 Disassembler SCAN 3 
XFE X002A,2 ; hex pair 
REVAS Version 3 aa ’ ee 
Uses either ZILOG or 8080 mnemonics SCAN eA 6) 
Includes UNDOCUMENTED Z80 opcodes XFER XOO1A, 1 ; modifier 
Handles both BYTE (DB) & WORD (DW) data STOP : SCNR - 
Disassembles object code up to 64k long! OHEX 160! 
Lets you insert COMMENTS in the disassembly! NODE 3 
A powerful command set gives you: OHEX = '60" 
INTERACTIVE disassembly oh A 
Command Strings & Macros . 
On-line Help : STOP 
Calculations in ANY Number Base! 
Flexible file and I/O control RTRN 
All the functions of REVAS V2.5 
; hex pair 
REVAS: 
Is fully supported with low cost user updates XOO2A: SKIP 
Runs in a Z80 CPU under CP/M* COLL = ON ; 
Is normally supplied on SSSD 8” diskette XFER X002B, 0 ; hex digit 
Revas V 3...$90.00 Manual only...$15.00 XFER X002B, 0 ; hex digit 
California Resident Yo COLL OFF 
iforni esidents add 6%% sales tax NODE 5 
REVASCO NODE 1 
6032 Chariton Ave., Los Angeles, CA. 90056 RIRN 


(213) 649-3575 


; hex digit 


“CP/M is a Trademark of Digital Resaerch, Inc. 





| Circle no. 51 on reader service card. (Continued on page 66) 
See Ee 
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USE MAGIC/L 
TO WRITE 


For just $295 MAGIC/L™ is yours. And suddenly 
you find you’ve bought more than a language. 
MAGIC/L is an entire interactive environment; 
an assembler, a compiler, an editor, an 1/O pack- 
age, and a system call facility are all wrapped up 
and delivered. And now MAGIC/L is available 
for CP/M-based computers. 

MAGIC/L is easy to learn. It has syntax similar 
to C and Pascal, and because it’s extensible as well 
as interactive, it dramatically increases productivity. 

Program development features include a built-in 
text editor, command line recall, CCP, STAT, and 
PIP command emulation, and the ability to store 
keyboard dialog on disks. 

Key language features include: CHAR, INTEGER, 
LONG, REAL, and String data types; record struc- 
tures similar to the STRUCT facility in C; anda 
complete I/O package that can provide random 
access, variable length I/O to any CP/M file. 





And MAGIC/L offers great portability. Source 
code which runs on CP/M can be compiled 
unmodified and run on any other processor. 

Typical applications include hardware interfac- 
ing, process control, games creation, interactive 
graphics and image processing. MAGIC/L has 
made programming easier for DEC, 68000, and 
Data General users. Now it’s working for CP/M 
users too. 

MAGIC/L provides everything you need to 
write a complete program. But the only way to be 
convinced is to try it yourself. Send us your $295 
check or money order—we also accept Master- 
Card and VISA—we'll send MAGIC/L for CP/M to 
you at once. A full money back guarantee is part 
of the package. Once you’ve sampled that first 
program, you'll have to try another . . . and 
another. . . and another. MAGIC/L. . . it's more 
than a language. 


MAGIC/L.. . It’s more than a language 





LOKI ENGINEERING, INC. 


55 Wheeler St., Cambridge, MA 02138 (617) 576-0666 


Circle no. 30 on reader service card. 


MAGICIL is a trademark of Loki Engineering, Inc. 


_ DEC is a trademark of Digital Equipment Corporation. 


CPIM is a trademark of Digital Research, Inc. 








PL/C Compiler Listing (Listing continued, text begins on page 44) 


Listing Two 


X002B;: 


MEMB 
NODE 
RTRN 


“01234567 89ABCDEF* ,O 


1 


; parenthetic group 


X0019: 


SKIP 
SCAN 
XFER 
SKIP 
SCAN 
XFER 
LG EN 
LGEN 
STOP 
NODE 
STOP 
NODE 
STOP 
GOTO 
NODE 
STOP 


NODE 
STOP 
NODE 
STOP 


NODE 
STOP 
RTRN 


Tre 
X0011,2 
7 rad 
XOO1A, 1 


; parenthetic body 


XFER 


RTRN 


? 


action specification 


s modifier 


X002C: XFER X0011,0 ; action specification 
SKIP 
SCAN i oueat 
XFER X002C,0 ; Pparenthetic body 
NODE 3 
NODE 1 
RTRN 

>; modifier 

XO001A: SKIP 
XFER X002D, 4 ; alt mod 
XFER XO02E,4 ; optionally many 
XFER XO02F, 4 ; one or more 
XFER X0030.4 ; optional 
XFER X0031.0 ; default zero 
NODE 1 
RTRN 


lk a eS 
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; alt mod 


X002D: XFER 0032.4 ; multi alt 
XFER , X0033 0 ; single alt One of the finest implementations of the FORTH language. 
NODE 1 Field tested and reliable) UNIFORTH is available for the DEC. 
RTRN Rainbow/Professional, Osborne, KayPro, and IBM PC as well as most 
systems with 8’’ disks and the following processors: 
8080 PDP-11. 
: Z80 68000 
; multi alt 8086/8 16032 
As a task, UNIFORTH is compatible with and supports all 
: eas features and file types of the CP/M ,CDOS ,MS-DOS_ and DEC 
X0032: SCAN $ 20 Operating systems. As an operating system, UNIFORTH will 
SKIP function ‘‘stand-alone’’ on most commercial microcomputers. 
®% ® 
SCAN tei) The FORTH-79 Standard language has been extended with 
STOP ‘— over 500 new words that provide full-screen and_ line-oriented 
editors, array and string handling, enhanced disk and_ terminal 
RTRN 1/O, and an excellent assembler. Detailed reference manuals 


supply complete documentation for programming and system 
operation, in an easy-to-understand, conversational style using 


; single alt numerous examples. 
Optional features include an excellent floating-point package 
* “Es with all transcendental functions (logs, tangents, etc.), the 
X0033: SCAN - p 20 MetaFOF:TH cross-compiler, printer plotting and CP/M _ file 
STOP 4 transfer utilities, astronomical and amateur radio applications, 
RTRN word processing, etcetera. 
Compare these features with any other FORTH on the market: 
‘ e Speed and efficiency e Ease of use 
? optionally many e Variety of options ¢ Documentation quality 


You'll find UNIFORTH is superior. 
Prices start at $35. Call or write for our free brochure. 


Unified Software Systems 


SKIP : 
P.O. Box 2644, New Carrollton, MD 20784, (301) 552-9590 


® a 
% 
SCAN gs 0 CP/M° Digital Research, CDOS" Cromenco, DEC’ PDP Digital Equipment 
STOP 3 Corporation, MSDOS* Microsoft, IBM PC° IBM, Z80° Zilog 


XOO2E: SCAN “¢* <0 





RTRN Circle no. 65 on reader service card. 
fee ie GGM — FORTH™ has HELP* 
1 2 
XOO2F: SCAN ~$° 50 for Z80' using CP/M 
par . GGM—FORTH, a complete software system for 
RTRN real-time measurement and control, runs on any 
L ; Z80 computer under CP/M using an extended 
3 optional fig-FORTH vocabulary. 
X0030: SCAN *#* 40 GGM—FORTH features: 
STOP ae e Open multiple CP/M files, in any combin- 
RTRN ation of direct-access and sequential-access, 
fully compatible with all CP/M utilities 
Fc gpeenet’ ZRNO Char. in/out uses CP/M console, lister, file, or 
X0031: STOP ‘O° roe 
RTRN On-line HELP* provides instant access to defi- 
, nitions in the run-time GGM—FORTH dictionary 
; output item HELP* file is easily extended to include user 


definitions using HELP® utility 


X0014: SKIP HELP* is available during full-screen editing 


SCAN ct WO 


XFER X0034 .2 ; output spec Complete system and manuals $150. 
SKIP Manuals only: SU: 
SCAN Sr agi Introductory System: $ 35. 
ae : GGM SYSTEMS, INC. (617) 662-0550 


135 Summer Ave., Reading, MA 0186/7 


* output spec 
3 Pp pe 1580 is a trademark of Zilog, Inc. 


(Continued on next page) 2CP/M is a trademark of Digital Research, Inc. 
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RED 





edward k. ream 





FULL SCREEN EDITOR 
with 
FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 80 


© RED is a powerful yet simple text editor for 
both programmers and writers. 


¢ RED features 17 commands including block 
move, block copy, search and substitute. 


¢ RED is the only text editor supplied with full 
source code for the BDS C, Aztec CII and 
Digital Research C compilers. 


¢ RED is the only text editor that you can 
change to suit your needs and tastes. 


¢ RED is the only text editor that will not 
become obsolete when you change systems. 


¢ RED supports all features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


¢ RED handles files as large as your disk. 


¢ RED is guaranteed. If for any reason you are 
not satisfied with RED, your money will be 
refunded promptly. 


Price: $50. 


For more valuable information, call (608) 231-2952 


To order, send $50 to: 
Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 


Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders unless 
a check ts included. 


Dealer inquiries invited. 
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PL/C Compiler Listing 
Listing Two 


(Listing continued, text begins on page 44) 


X0034;: XFER X0035 .4 
XFER X0036,4 
XFER X0037 ,0 
NODE 1 
RTRN 

; node spec 

X0035: xXFER X0038,0 
XFER X0039 ,3 
NODE 2 
NODE 1 
RTRN 

> hode number 

X0038: SKIP 
COLL ON 
XFER X0010.2 
COLL OFF 
STOP : 
NODE 1 
STOP : 
RTRN 

>; addl node number 

X0039: SKIP 
SCAN "ee 
XFER X0038 ,0 
NODE 1 
RTRN 

; Output string 

X0036: XFER X0020.0 
STOP * 
NODE 1 
STOP 3 
RTRN 


; Output value 


NODE 


STOP 


we we we 


e 
9 


x 


? 


9 
. 


node spec 
output string 
output value 


node number 
addl node number 


digit 


node number 


string 
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X0037: SKIP 
SCAN a 


SKIP You Read 
XFER X002A,2 ; hex pair 
SCAN Dr. Dobb's Journal 
SCAN ie ae 
stop <. > er. ; s vOurn 
NODE 2 
Renee: S) And You Don’t 
RTRN Subscribe?! 
; semi 
Save over $23.00 
a off newsstand prices for 2 yrs. 
SCAN  *3*,0 Save over $10.00 for 1 yr. 
RTRN 
; end Can you afford to miss an issue with 
information vital to your interests? As a 
subscriber you can look forward to 
X0003: SKIP =. articles on Small-C, FORTH, CP/M, S-100, 
oc ies os Compiler optimization, Concurrent Pro- 
XFER X0012.0 : semi gramming and more, delivered right to 
STOP . .END your door. And you’ll never miss the 
issue that covers your project. 
OHEX "1 At 
RTRN 
e END Bird ‘Listing 320 ak a ee eee 


DR. DOBB’S JOURNAL 


P.O. Box E 
Menlo Park, CA 94026 
Yes! Sign me up for 
wi 2 VIS Seat omc Vie 


____ | enclose a check/money order 

____ Charge my Visa, MasterCard, 
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Program Design 
Using Pseudocode 





rogramming involves two distinct 
‘= steps: design and coding. Program- 

mers are often quite adept at coding 
but deplorably inadequate when it comes 
to working out the design part. 

When you code, your main concern 
is the language and all the details of pro- 
gram construction: how to pass param- 
eters to the function, how to set up the 
search loop, or whether the loop condition 
is checked at its beginning or end. It’s 
something like taking a trip. Which road 
should we take? When should we stop 
for gas? What if the Disneyland Hotel 
has no vacancies? 

Designing is analogous to planning 
the trip. Where shall we go? What shall we 
do? Shall we drive or fly? Unfortunately, 
planning the trip, like wrestling with the 
design of a program, is hardly ever as 
exciting as actually doing it. It must be 
human nature to say, ‘“‘Aw, heck, Ill 
figure it out asI go.” The result is usually 
pretty chaotic. “‘Let’s see, was INREC 8 
bytes or 10 bytes long? I assumed 8 here, 
but I used 12-over there .;: .” 

Except for a really trivial program, it 
is unreasonable to assume that you can 
design while coding or code while de- 
signing. Usually, the design loses out 
since you tend to concentrate more on 
coding detail (the how part) than on 
design detail (the what it does part). 

Numerous tools are available for 
designing programs. Flow charts are 
probably the most heavily abused of 
them. Some structured design method- 
ologies, complete with a plethora of 
rigid rules for their usage, are also avail- 
able. Then there is pseudo-code. 

Pseudo-code is a sort of ‘‘fake’’ 
programming language, one that is meant 
to give you lots of flexibility in designing 
a program. At its worst, pseudo -code can 
be so restrictive that it becomes much 
like another programming language. At its 
best, it allows you to create structures 
that make sense only to you, although 
they may be meaningless to a compiler. 

In this article, I will present a way of 
using pseudo-code during the design 
process. Although I don’t intend to set 
down any coding conventions, I will 
describe the conventions I used at the end 
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“Pseudocode is a sort of ‘fake’ programming 
language, one that is meant to give you lots of 
flexibility in designing a program.” 





of the article. Our concern here is the 
method of usage, not the method of 
coding. 


Design Philosophy 


We are going to design a game pro- 
gram. We will start by describing it in 
very general, rather vague terms. We will 
then build a modular design using struc- 
tured English, working from the top down. 
We will ignore such things as subroutines, 
variables (for the most part), structures, 
and primitives. It won’t look anything 
like a program. 

Then we will get into pseudo-code. 
We will translate each module into a 
routine using pseudo-code, creating more 
routines as we go. We will also start 
creating variables, both local and global, 
and we will reference several data struc- 
tures. Because of the inexact nature of 
the design process, we will probably 
reiterate the various stages several times, 
reorganizing modules and rebuilding data 
structures. After that, we’ll think about 
coding. 


A Shoot-’Em-Up Game 


You are playing a video game. In the 
center of the screen is the cross hair, 
against a background of fixed stars. As 
you move the joystick around, the back- 
ground moves also. It’s as if you were in 
a spaceship, in the gunner’s compartment, 
scanning nearby space with your missile 
launcher. A series of fighter craft comes 
into view! They weave about against. the 
fixed background, and the whole scene 
moves about the screen as you maneuver 
the joystick to take aim. When you press 
the fire button, a missile is launched. 
Each time a missile intercepts an attacking 
fighter, you see an explosion and are 
awarded points. You play until a certain 
number of ships gets past you, at which 
point the game ends. The number of 
fighters on the screen during a ‘‘wave’’ 
may be limited, as well as the number of 
missiles on the screen at a time. 

Does it sound exciting? No? Not a 
video game addict, eh? Well, bear with 
me. The principles we will use to design 


this game are applicable elsewhere, too. 
Let’s now do what I call a Level | design 
specification, using structured English. 
We may have to rework the design several 
times, but we should have a decent one 
by the time we’re done. 


Level 1 Design 


Designing usually requires lots of 
paper, most of which ends up in the 
trash. We’ll skip the scribbling and go 
straight to the final draft. Our top down 
design begins with the main module. 


Main Module 

1. Create attacking fighters and set their 
initial positions. 

2. Set initial coordinates of cross hairs 
against the reference background. 

3. Draw the initial screen. 


4. Until the number of fighters that 
“escape” is greater than the limit, do 
the following: 


a. Seeif any missiles are fired 
(Fire Control). 


b. Check for interceptions 
(Intercept Control). 


c. Move the fighters 
(Fighter Movement). 


d. Move any missiles 
(Missile Control). 


e. Determine cross hair position 
(Scan Control). 


f. Draw new screen 
(Display Module). 
g. Delay for skill level. 
h. Loop back to 4. 
5. End of game; display final tally. 


Fighter Movement 


Given that we know the previous 
x,y position of each fighter and its range 
from us: 


For each fighter, calculate a new x,y 
position against the reference back- 
ground and a new range. 


Missile Control 
Given that we know the previous 
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range of the missile from the player (and 
assuming that its x,y reference coordinates 
don’t change): 


Calculate its new range. 


Scan Control 


Given that we know the previous 
x,y position of the cross hairs against the 
reference background: 


1. Read the x,y values of the joystick 
and convert to (+1, +1) values. 


2. Change the x,y values by adding 
the results from the joystick. This 
implies that moving the joystick 
causes the center of the screen to 
drift against or “‘scan” the reference 
background. 


Intercept Control 
1. For each missile: 
a. Get its x,y position and range. 


b. Calculate the range it will have 
after its next missile movement, 
and call it range 1. 


2. For each fighter whose x,y position is 
the same as that of the missile, if mis- 
sile range > fighter range > range 1: 


a. Get the point value of the fighter. 
b. Eliminate the missile and fighter. 


c. Mark an explosion at the fighter’s 
location. 


3. Return the total score. 


We'll spare you the rest of the mod- 
ules; suffice to say that Fire Control 
checks the fire button, and Display Mod- 
ule displays the screen, showing fighters, 
missiles, explosions, and background stars. 

There are quite a few implications 
and assumptions here. We imply that a 
data structure exists for each of the 
fighters, missiles, and explosions. We 
imply variables for keeping the score and 
constants to regulate the game speed 
and number of rounds to play. We assume 
that we can read the joystick and convert 
its values and that we can read the fire 
button. 

It’s a good idea to sit back and re- 
consider the game in its entirety just so 
that we don’t become too myopic from 
staring at the details. For example, notice 
that Intercept Control checks a missile’s 
next position. The Missile Control module 
also needs this information in order to 
move the missile. We might want to cal- 
culate the position once then save it for 
use by other modules. We should make a 
note of this and modify the design to 
take this into account. If we noticed 
this while coding, major surgery might be 
required on our beautifully written pro- 
gram to accommodate this discovery. 

Notice also that, despite all these 
assumptions and implications, we have not 
specified how any of this will be done. 
We simply assume that it can be done. As 
programmers, we ought to know if it 


can be done or not, and we ought to 
know the limits of the machine. In any 
event, we have specified what it does with- 
out worrying about how it will do it. 

At this point, we can easily change 
our minds concerning the design of the 
game. We can let the fighters shoot back, 
or we can describe various classes of 
fighters with different abilities. We have 
this flexibility because we have yet to set 
up the rigid data. and control structures. 

Once we are Satisfied with our base 
idea, we go on to something closer to a 
program. We can start using data struc- 
tures and variables and flow-of-control, 


and leave the somewhat ambiguous struc- 
tured English of Level 1. Figure 4(a) (page 
75) presents the conventions adopted 
for Level 1 design for use as guidelines 
in subsequent design efforts. 


Level 2 Design 


During Level 1, we described a set of 
modules in rather loose terms, implying 
all sorts of data and control structures, 
as well as numerous functions and sub- 
routines, without really acknowledging 


them as such. In Level 2, we transform 
the modules into routines using real, 
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live pseudo-code. Although we use vari- 
ables, data structures, and certain control 
structures, we aren’t really coding in the 
normal sense. We are still describing what 
the routines do but in sufficient detail to 
make the how of it easy, even obvious, 
to work out. 


We'll start by identifying what might 
be global variables. These are data struc- 
tures and other variables that seem to be 
used in different modules, retaining the 
changes that other modules make to them. 
For example, the fighters might be de- 
scribed by a collection of data structures 
called SHIPREC, while missiles are de- 
scribed by a collection of data structures 
called MISSILE. Some obvious variables 
are the total number of points, current 
center-of-screen coordinates, and the 
number of fighters that have “‘escaped.”’ 

For Level 2 designs for the Main Mod- 
ule and the Intercept Control routines, 
we'll again skip the scratchpaper stage 
and present a (nearly) finished draft. 
Figure 1 (page 72) shows the logic for the 
Main Module. 


The Main Module routine uses a num- 
ber of routines, most of which are familiar 
from Level 1. The notation SHIPREC (i) 
does not imply that SHIPREC is an array; 
it is simply a convenient fiction to in- 
dicate ‘“‘this particular SHIPREC” as 
opposed to ‘“‘any SHIPREC.” We have 
described only those variables and con- 
stants actually used by this routine, 
although many other global variables 
exist; we will indicate global variables 
in other routines as we come to them to 
keep our list of variables and constants 
from getting out of hand. We didn’t need 
to describe each of the routines derived 
from the modules, but we did it for 
completeness. 

We also used two loop structures, 
one of which looks vaguely like the 
“do until’ loop. The other is easy to 
understand but looks unlike any ‘‘real’’ 
loop structure in any language. The two 
loop structures are actually pseudo-loops, 
in that they aren’t supposed to tell you 
how to code the loop or even which loop 
to use. They only tell you what to loop 
on and when to quit the loop. More on 
this later. 

Of course, the top level module of 
many programs can be awfully dull; 
nothing really happens there. All the 
action is found in.the lower level routines. 
Figure 2 (page 74) shows the pseudo-code 
for the Intercept Control routine. 

The MX, MY, MR, and MR1 variables 
are local and temporary. Depending upon 
the language, they may be represented 
by registers, values on stacks, etc. In some 
cases, they may never be really created. 

The functions, XPOSITION.M, YPO- 
SITION.M, XPOSITION.S, and so on 
may be fictitious, depending upon the 
actual format of the fighter records and 
missile records. They are created here 


Main Module Logic 


MAIN.MODULE: routine; 
for each SHIPREC (i) do 
call NEWSHIP (SHIPREC (i)); 
loop (i); 
FAILURE.COUNT :=0; 
call DISPLAY.SCREEN; 
until FAILURE.COUNT=MAXFAIL do 
call FIRE.CONTROL; 
SCORE :=SCORE + INTERCEPT; 
call FIGHTER.MOVEMENT; 
call MISSILE.CONTROL; 
call SCAN.CONTROL; 
call DISPLAY.SCREEN; 
call SPEED.DELAY; 
again; 
call END.GAME; 
end MAIN.MODULE; 


(init fighter records) 
(create ship record) 
(next rec) 

(failure counter) 
(draw 1st screen) 
(main prog loop) 
(launch missiles) 
(Intercept Ctl) 
(move fighters) 
(move missiles) 
(new x,y cross hairs) 
(draw new screen) 
(slow game) 


(final display) 


Variables and Constants 


SHIPREC 

Global structure giving positions of fighters (x,y, range) as well as other 
information. 

SCORE 

Global variable with current score. 

FAILURE.COUNT 

Variable giving number of ships that have ‘‘escaped.”’ 

MAXFAIL 

Constant giving maximum number of failures before game ends. Suggested 
value=10. 


Functions and Routines 
NEWSHIP (ship record) 
Initializes a record, creating a new fighter, position, value, etc. 
DISPLAY.SCREEN 
Draws a screen with current objects (fighters, missiles, explosions, stars, etc.). 
FIRE.CONTROL 
Performs missile launches. 
INTERCEPT 


Returns total point value of any fighters shot down by missiles. Checks for 
interception and eliminates hit fighters and missiles. Records explosions. 
FIGHTER.MOVEMENT 

Moves each of the fighters. 

MISSILE.CONTROL 

Moves each of the missiles. 

SCAN.CONTROL 

Checks joystick and sets new center-of-screen coordinates for cross hairs. 
SPEED.DELAY 

Slows down the action by inserting a delay. 

END.GAME 

Performs end-of-game cleanup and display. 


Figure 1. 
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Intercept Routine Logic 


INTERCEPT: Function; 
POINTVAL :=0; 
for each (MISSILE(i)) do 
MX := MISSILE (i) .XPOS; 
MY := MISSILE (i) .YPOS; 
MR := MISSILE(i) .RANGE; 
MR1:=MR+MISSILE(i) .SPEED 
for each (SHIPREC (j)) do 
if SHIPREC (j) .XPOS=MX 
and SHIPREC(j) .YPOS=MY 
then 
if MRSSHIPREC(j) .RRANGESMR’1 then 
POINTVAL := POINTVAL + SHIPREC(j) .VALUE 
call ELIMINATE (MISSILE (i)); 
call NEWSHIP (SHIPREC (j)); 
exitloop (j); 
endif 
endif; 
next (j); 
next (i); 
return (POINTVAL); 


(initialize point count) 
(another loop) 

(current x coordinate) 
(current y coordinate) 
(range from player) 

(find next position) 

(check each target ship) 

(is fighter at the same... ) 
(position as missile?) 


(a hit!) 


(exit SHIPREC loop) 


Variables and Constants 


POINTVAL 
Sum of points added this turn. 


MX, MY, MR, MR1 


Holding variables for missile position (x,y,range) and projected range of missile. 


SHIPREC 
Global data structure describing fighters. Includes position and value informa- 
tion. See description below. 


MISSILE | 
Global structure for missiles. See description below. 


MISSILE and SHIPREC Structures 


MISSILE (record) .XPOS 
X position of a missile. 


MISSILE (record) .YPOS 
Y position of a missile. 


MISSILE (record) .RANGE 


SHIPREC (record) .XPOS 
X position of an attacking fighter craft. 


SHIPREC (record) .YPOS 
Y position of a fighter. 


SHIPREC (record) .RANGE 


Distance of a missile from the player.| Distance from player to attacking fighter. 


SHIPREC (record) .VALUE 
Point value of a target fighter. 


SHIPREC (record). 


MISSILE (record) SPEED 
Velocity at which a missile is 
traveling. 


Functions and Subroutines 
ELIMINATE (missile record) 


Deletes a missile record (either by unlinking it, if a linked list is used, or by 
setting an ‘‘unused”’ flag). 


NEWSH IP (ship record) 
Replaces a destroyed fighter with a new one. 


NEWBANG (x,y,range) 
Makes an entry in the explosion table for the display. 


Figure 2. 
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for convenience. The explicit difference 
between XPOSITION.M and XPOSI- 
TION.S, and between YPOSITION.M and 
YPOSITION.S, and so on, is because we 
don’t know anything about the actual 
layouts of the missile and fighter records. 

The routine NEWSHIP has been 
re-used, indicating that it may be global 
or at least defined at a higher level than 
this routine. When designing and coding 
it, we will have to keep in mind that it 
can be called at any time, not only during 
the initial setup. 

Although we have identified some of 
the fields within the fighter and missile 
records, we still do not impose a format on 
them. We may find that we need more 
fields in some of these records. For these 
reasons, we reference the fields within the 
records by name, using the “dot’’ conven- 
tion — RECORD.FIELD1 refers to a 
field called FIELD1 in a data structure 
called RECORD. 

In both of the routines that we 
pseudo-coded, we referred to the fighter 
and missile records with miniscule sub- 
scripts. This is not intended to imply that 
they are arrays. We have not specified 
what their actual structure is and simply 
use the miniscule subscript to single out a 
particular record and to imply an ordering 
to the records. That is, some “‘first”’ record 
exists and for any record a “next” record 
exists. These records could be arrays, or 
they could be elements in a linked list 
or sequential blocks in memory. The 
physical layout is not important at this 
time. 

Figure 4(b) (page 75) lists the conven- 
tions used for Level 2 design. 


Loops and Other Control Structures 


A dozen different loop constructs 
no doubt are available among program- 
ming languages, as well as a dozen ways 
to use them with varying degrees of effec- 
tiveness. If you use an “‘until” loop, does 
it check the condition at the beginning 
of the loop or at the end? What is the 
value of the loop counter after the loop 
terminates? Is the loop always executed 
at least once? 

Many of the loop peculiarities depend 
upon the implementation. We would like 
to have a set of pseudo-loops that always 
does what we want it to do. Since we are 
working with pseudo-code, there is no 
reason why we can’t create such loops. 
Let’s assume that our loops will be exe- 
cuted zero times if the exit condition is 
met immediately upon entry to the loop. 
Let’s also assume that loop counters re- 
tain their values after the loop is exited. 
We know that we can ensure these two 
points during real coding, even if the 
language doesn’t support them, by adding 
our own checks or by using different 
loop constructs. 

Three things are common to loops. 
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ACTIVE TRACE 


‘‘A marvelous Basic 
programming aid ... 
It’s just amazing to watch a 
program you wrote run under 
Scope, and debugging 
becomes if not trivial, then at 


least doable.’’ 
Thomas Bonoma, Microcomputing 
Dec; “83, p 22 


‘‘Extremely useful program 
... Anyone doing much pro- 
gramming in Basic should 


appreciate Active Trace a lot.’’ 
Jerry Pournelle, Byte Magazine 
April ’83, p 234 


Spaghetti code is what many ‘‘experts’’ 
call a beginner’s Basic program which is 
all tangled up and difficult to follow. The 
Active Trace package will help you learn 
how to avoid the pitfalls of structureless 
programs. And if you already have a pro- 
gram which is too confusing to follow, or 
has an error which is hiding, relax. 
Active Trace doesn’t get confused. Active 
Trace will lead you through your program 
letting you know variable values (all vari- 
ables or just those you specify) as they 
change. In a form a novice can under- 
stand, your program's internal activity is 
presented on your screen, or printer, or 
it can be saved on disk. 
































For more advanced programmers, the 
disk file of your programs activity can be 
used with your word processor to auto- 
matically find the source of an error and 
display the circumstances surrounding its 
occurrence. 


Ready to Order? 

Just have a Question? 
Contact your dealer or call 
Toll Free: 800-358-9120(US) 

800-862-4948(CA) 
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Active Trace 


Complete package includes Scope, XREF 
mapping and documentation 


Scope Separately 


Only recommended for those who already 
own professional mapping (XREF) programs 






$49.95 






Active Trace is available for most MS-DOS and CPM 2.2 
Systems and supports the special features of Brand specific 
versions of Microsoft Basic such as Basica on the IBM-PC. 


4 WARECO 
ctive Software 


P.O. Box 695 Gualala, CA 95445 
(707) 884-4019 


Active trace, Active software, AWARECO and Scope are 
trademarks of A Ware Company—CPM is a trademark of 
Digital Research—MS-DOQS and Microsoft are trademarks of 
Microsoft Corporation—|BM-PC is a trademark of IBM Corp. 
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First, they assume some initial condition 
or initial item: the initial value of a 
counter, for example, or the first element 
in a linked list. Second, most loops as- 
sume that a “‘next” item follows the first. 
Third, the program can exit the loop 
either when the elements are exhausted 
or upon realization of an ‘“‘exit” condi- 
tion of some sort. Regardless of the pecu- 
liarities of any language, loop structures 
almost always have provision for these 
three points. Of course, we may have to 
do some twisting to use them the way we 
want to, but that is why we work out the 
design in pseudo-code to begin with. 

Given that we can have our pseudo- 
loops do what we want them to do, what 
sort of loop constructs might we use? We 
suggest the following types: 


1. The “until X do... again’ loop. If 
condition X exists upon entry to the 
loop, the loop is not executed. 


2. ‘while X do...again” is similar to 
(1) but runs while condition X holds. 
If X is not true on entry, the loop 
is not executed. 


3. “for ‘each: X.-do =. -160n”: or “for 
each X (i) (fori=mton)do...loop”’ 
runs the loop until the elements X 
are exhausted. 


4. “do 2 4£°X%-- then exit:, ;-again™ 
exits the loop upon satisfaction of 
the test. 


Two other control structures that 
are frequently used are the “‘if..then.. 
else... endif’? and the “‘case..of.. end- 
case’ structures. Everyone knows the 
first structure. We like to close each ‘“‘if”’ 
with an “endif.’”’ You may or may not, 
depending on how you feel. The “‘case. . 
of .. endcase’’ structure may be thought 
of as a selection of one out of several 
subroutines. For example: 


Structure 


SHIPREC 
offset 


+0 NEXTREC 
+2 XPOS 

+4 YPOS 

+6 RANGE 
+8 VALUE 


name size 


2 byte 
2 byte 
2 byte 
2 byte 
2 byte 


description 


Pointer to next record (linked list) 
X coordinate of record 

Y coordinate of record 

Distance from player 

Point value of ship 


New Fighter Routine 


NEWSHIP (SHIP) : Routine; 
SHIP.XPOS := RANDOM (0,255); 
SHIP.YPOS := RANDOM (0,255); 


(random X coordinate) 
(random Y coordinate) 


SHIP.RANGE := RANDOM (MAXRANGE*3/2,MAXRANGE); 


SHIP.VALUE := 100*RANDOM (1,3); 


end NEWSHIP; 


(random distance) 
(random value) 


Variables and Constants 


SHIP 


Local reference to a SHIPREC record. 


MAXRANGE 


Constant giving maximum start distance for attacking fighter. 


Functions and Routines 


RANDOM (m,n) 


Returns a random number between m andn. 


Figure 3. 
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case (1) of 

(1) DOTHIS; 

(2) DOTHAT; 

else DOTHEOTHER; 
endcase 


performs the routine DOTHIS if the sel- 
ector, I, is 1; it does DOTHAT if I=2; 
and it performs DOTHEOTHER for any 
other value of I. It is easy to implement 
even in languages lacking the “‘case”’ 
structure. 

The control structures presented here 
should be sufficient to make the intended 
structure of any program clear. Often their 
actual implementations during coding 
become obscure due to language pecu- 
liarities, but a quick reference to the 
pseudo-code version should serve to re- 
mind you of the intended structure. 
Thus, you will not lose the design of your 
program while you are struggling with 
the problems of coding. 


Routines and Functions 


We started the design process with a 
loose description of what we wanted to 
do. We then formalized it somewhat 
during Level 1 by breaking the process 
into modules, written in structured 
English. From there we went on to Level 
2, where we transformed the structured 
English to pseudo-code. At each step we 
assumed and used numerous subroutines 
and functions. So where do we describe 
the subroutines and functions? 

There are three classes of routines. 
One class of routines includes those de- 
scribed as Level 1 modules; these, of 
course, we translated to Level 2 routines. 
We briefly described the next class of 
routines in the ‘‘Functions and Sub- 
routines’”’ part of the figures, some of 
them with sufficient detail to go on to 
pseudo-coding them. The last set are 
those routines that are sufficiently 
complex to require whole Level 1 descrip- 


tions of their own. For example, a sophis- 
ticated parsing routine within another 
program might be sufficiently compli- 
cated to justify having its own thorough 
design. 


By this time, you are probably pretty 
familiar with your design, maybe even a 
little sick of it. It might be reasonable to 
try coding a small test program to see how 
it looks. You may discover something that 
you hadn’t anticipated that impacts on 
your design. For example, the method 
you selected to draw the display might 
prove to be far too slow. You experiment 
to find a faster way, but it involves a 
major design change. Oh well, it’s better 
to know now before you have logged a 
hundred hours of coding and debugging 
time. 


In designing a program, you should 
defer “programmer” problems until the 
final stages. But before you start the last 
design step, it definitely helps to consult 


Semicolons are used to separate “‘statements’’ from each 
other. There are no rigid rules however, for statement 
separation. 


Use nested structures. They are much cleaner than branches. 
Indent the lines for readability. 


Use miniscule letters to indicate specific elements in data 
structures. They may resemble arrays, but they make it 
easier to specify particular elements of lists. ‘““ELEMENT- 
(i)’"’ is an element of a list of elements, regardless of its 
actual format. “ELEMENT (1)”’ is an obvious array. 


If you want to exit a loop prematurely, use generalized 
loop structures, such as: 

“for each ITEM(i) do... next (i)”’ 

“until CONDITION do... again” 

“while CONDITION do... again” 

“do (i) .. if CONDITION then exit (i) endif... again”. 


Instead of the “goto SOMEWHERE?” structure, use the two 
conditional execution structures: 

“if CONDITION then... else... endif” 

“case (1) of (1) SUB1;.... else SUBn endcase”’ 

(The “goto”’ is used only while coding, when the language 
lacks the sophisticated block structures or loop “exit’’ 
words.) 


These are the conventions used for the various design 
levels in this article. They should be taken as guidelines for 
working out the design and are not meant to be strictly 
adhered to. 


(a) Level 1 Conventions 


Modules are worked out from the top down. 
Each module is laid out in an outline format. 


A control structure encompasses the lines that are indented 
under it (control structures usually end with an ending 
keyword). 

Variables and data structures are only implied. 


Entries should describe actions performed without referring 
to the “how it’s done” detail. 


All major activities ought to be covered, and the modules 
should be worked out such that all relevant cases are 
covered. 

If any single module becomes too cumbersome, it should be 
redesigned or broken into smaller modules. 


(b) Level 2 Conventions 


Each module created during Level 1 design should be 
included as a routine or function. All nonprimitive routines 
and functions used during Level 2 design should also be 
pseudo -coded. 

Each section of pseudo-code (each routine) should include 
a list of variables and constants and a list of routines and 
functions that were used. This provides a cross reference. 
Variables and data structures should be marked as “‘global”’ 
if they are used in more than one routine. The actual 
assignment of variables to specific routines may be done 
during Level 3. 
Variables, constants, functions, and routines are written in 
upper case to make them distinguishable from control 
words. 


(c) Level 3 Conventions 


The pseudo-code looks just like Level 2, except that data 
structures and variables are defined according to language 
and machine limitations. 

Pointers can be initialized using the ADDR(X) function; 
“PTR1 :=ADDR(X)” is usually pretty clear. 

Reference to a location via a pointer can be coded as 
[PTR1]. For example, “[PTR1] := X’’ copies the value of 
X to the location reference by PTR1. 

Language-supplied constructs may be used; however, it is a 
good idea to limit these, as this is still part of the design 
phase. 


Figure 4. 
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the computer. What you learn by building 
a small test system will help as you strug- 
gle with the Level 3 design. Machine 
dependencies have a way of wrecking 
“‘machine-independent”’ designs just as 
easily as ignorance of the design can 
mangle your tidy code. As designer and 
programmer, you catch it from both sides. 


Level 3 Design 


We have now pseudo-coded most of 
the routines in our program. We know 
what the modules are and what they are 
to do. We also know about a whole mass 
of variables and data structures. Now we 
need to know what the data structures 
look like and how they are accessed. At 
Level 3, we design the data structures and 
the primitive operations on them. 

At this point, we become concerned 
with the selection of the language, as well 
as language and machine dependencies. 
We should restrict ourselves, however, to 
dependencies relative to data structures. 
We will still use the techniques of Level 2 
for specifying control structures and avoid 
implementation dependencies for these as 
yet; although we must address the depen- 
dencies regarding data structures, we are 


still involved with design. 

For this example, let’s pseudo-code 
the NEWSHIP routine. We must also 
specify the layout of the fighter record 
SHIPREC with respect to some language. 
Let’s assume that the language we are 
using permits us to reference the record 
and its fields by specifying a name and 
and offset. We first describe SHIPREC 
in Figure 3 (page 74). 


We have specified, for purposes not 
connected with the NEWSHIP routine, to 
include a ‘‘next record” pointer in the 
fighter record, implying «hat the fighter 
records constitute a linked list. We have 
also referenced a random number gener- 
ator, which we hope is at least partially 
supplied by the language we intend to use. 

Eventually, we will have all the rou- 
tines pseudo-coded in a similar manner. 
Figure 4 (c) (page 75) presents the Level 3 
design conventions. Assuming that we are 
still satisfied with our design, we can go 
on to the final step: coding. 


From Pseudo -Code to Real Code 


Once we decide to start coding, we 
should put all our energy to writing code, 


trusting that our design is complete. The 
actual process of coding, of course, de- 
pends upon the language we have se- 
lected. However, we might follow certain 
general procedures. When we embarked 
upon design, we worked from the top 
down. When coding, we work from the 
bottom up except for the variables, 
which usually must be declared prior to 
their use. 

Generally, the transformation from 
pseudo-code to real code is pretty pain- 
less, for an excellent reason: you have 
made all the global decisions and can now 
concentrate on the local, line-by-line 
ones of coding! The loop structures, how- 
ever, always seem to have it in for us. 
Somehow, loops always do something 
other than what we want them to do, 
forcing us to find some way of getting 
them to do our bidding. 

As we mentioned before, most loops 
imply the existence of an initial element, 
a successor element, a final element, and 
some exit method. In coding a loop, then, 
we should find the most effective way of 
specifying these points. For example, in 
our pseudo-code we might have said, ‘‘for 
each SHIPREC(i) do..” Instead of “‘for 
I=1 to n”’ this might translate to: 
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PTR.S := FIRST.SHIPREC; 
until PTR.S=0 do... 
PTR.S := PTR.S+0 

again 


Summary 


The design process begins with an in- 
formal description of the program in terms 
of its actions. This is separated into mod- 
ules, each of which is stated in structured 
English. The focus is on what the modules 
do, and on which one does what, rather 
than on how it is done. During this Level 
1 design process, data structures are 
implied by the actions being performed 
and are not explicitly described. 


During Level 2 design, the tight 
English modules are converted into rou- 
tines and functions composed of calls to 
other routines, held together by control 
structures. The control structures mirror 
the various structures available in most 
languages, but they are assumed to do 
what we want them to do rather than 
what the language designer specified they 
should do. Loops check conditions upon 


entry and may be skipped altogether if 
the exit conditions are already in effect. 
The data structures and variables implied 
during Level 1 are stated, but their actual 
formats are left vague. Data types are kept 
simple; integers, real numbers, pointers, 
characters, and strings are commonly 
used. You should feel free, however, to 
create any new data types you want. 


Level 3 design starts by describing the 
data structures and variables used during 
Level 2 design. Language and machine 
dependencies should be taken into ac- 
count at this point. Primitives that work 
on the data structures are pseudo-coded, 
still describing what they do, except that 
now they are designed with the language 
and machine in mind. We may also wish 
to annotate routines created during Level 2 
design if they happen to directly manip- 
ulate any of the data structures. 

Finally, the pseudo-coded routines 
are translated to the actual program code. 
The various routines are laid out as skele- 
tal forms, and the variable declarations 
are coded. The routines are coded starting 
with the primitives, working up to the 
higher level routines. Routines should 
be tested as they are coded to simplify 
the problems associated with integration. 


The transformation of loop structures, 
Ss Wen. «+ structures-and “case ..7° 
structures should be watched, as language 
peculiarities can cause difficulties. “ 

If you use this method conscien- 
tiously, you should be able to work out 
the design of a program before you get 
entangled in the details of coding. Coding 
itself should be much easier since you can 
ignore design considerations at that point. 
Working from Level 2 and Level 3 pseudo- 
code, even if you are working with the 
most primitive and unstructured of lan- 
guages, you should be able to see the pro- 
gram structure easily by comparing the 
real code with the pseudo-code. Program 
documentation should be easier, too, as 
the pseudo-code provides the basis for 
program comments. 
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More on Binary Magic Numbers 


able information in his article ‘‘Binary 

Magic Numbers” (DDJ No. 78). Not 
only are the magic numbers useful, but the 
algorithms show how the parallel proc- 
essing capabilities of even the simplest 
computer (in this case, the ability to proc- 
ess all of the bits of a “‘word” in parallel 
rather than one at a time) can be used to 
dramatically improve the execution time 
of a program. 

He chose Pascal, however, to pre- 
sent his algorithms. I do not want get in- 
volved with the unsolvable debate about 
“Which is the best programming lan- 


Fess E. Freed presented some valu- 


by Dale Wilson 


Dale Wilson, Codewright, 
Ave., St. Louis, MO 63122. 


231 Couch 


guage?” but in this case I can confidently 
state that C is a better choice for the pro- 
grams in the article. 

The primary reason is that C has oper- 
ators which map directly into machine 
operators, so there is no need to invent 
functions to mimic the hardware. The use 
of the operators &, |, “, ~, << and >> 
which stand for AND, OR, EXCLUSIVE 
OR, COMPLEMENT, SHIFT LEFT, and 
SHIFT RIGHT, makes a C version of the 
program much more straightforward (at 
least to someone who can read C). The 
“op=” and “++”? and ‘‘——” operators of 
C also correspond to the instructions 
available in assembly language, so I have 
used them. 

In fact, in translating the programs to 
C in order to understand them more 
clearly, I was able to come up with cleaner 
versions of several of the functions pre- 
sented by Freed. In most cases, I used a 


Binary Magic Listing 


/% 

* “Binary Magic Numbers" by Edwin E. 

x by Dale Wilson, 1983 

x Placed in the Public Domain 

x 

2 

* into assembly language for most computers. 
x 

z 


x/ 
#include <stdia.h> 


Inc. 


more natural index to control the loops. 
It also turned out to be useful to split the 
array B into two parts. B1 is the first half 
of the original array — the binary magic 
numbers. B2 is the second half — the com- 
plement of those numbers. 

The resulting functions are shown in 
the listing (below). I hope this will 
direct the attention of people back to 
the ideas in Freed’s article. You may never 
need to hand-code a parity function ora 
side-sum function, but someday you may 
need to sort or sum a matrix on a multi- 
processor computer, and these or some 
other binary magic numbers may be just 
the trick you need in order to complete 
the task in log time rather than linear time. 


BB 


Reader Ballot 
Vote for your favorite feature/article. 
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Some useful bit manipulation functions inspired by the article 
Freed in DDJ #78, April 1983. 


These functions were written so they aay be directly translated 


These functions were tested on a Zenith 100 computer using the 
* C86 compiler from Computer Innovations, 


#define 
#define 
#define 


TRUE 1 /% stranger than fiction %/ 
FALSE O /k fiction %&/ 
CNTLZ 26 /%* MS-DOS eof xk/ 


#define 
#define 


N 16 
V 4 


“word” «/ 
N <&/ 


/*% bits per 
/% log 2 of 


f/& Since C does not have binary constants, the binary magic numbers are 
* expressed below in hexadecimal. B from Freed’s article is divided 


* into bi and b2 since there was no good reason to have them in the 
x Same array. 


x/ 
unsigned int biCV] 


{ OxS555, Ox3333, OxOFOF, OxOOFF 3}; 
unsigned int b2CV] 


£ OxAAAA, OxCCCC, OxFOFO, OxFFOO 3; 


cnt eee ales ennai elaine snc ap oe eS 
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/% converting binary numbers to Gray code is so simple that it may 
* be best defined as a macro rather than a function. 
x/ 


#define binary_to_Gray(x) (x “ x >> 1) /& X exclusive_or X shifted_right 1 %/ 


MAIN routine to test the functions. 

Numbers ‘(entered in hexadecimal) will be used as arguments in each 

of the functions. As an additional check, the binary number resulting 
from the Gray_to_binary function will be converted back to Gray code-- 
which should result in the original number. : 


~ 
@ 2M Me 2 MH MH 


/ 


main (argc, argv) int argc; char kargv(]; 
{ unsigned int r,i3; 
int cs 
while (TRUE) /% loop forever x/ 
{ 
printf ("Enter number =: ")3 
fscanf (stdin, "Z~x",&i)3 /% read a hexadecimal %*/ 
while ((c=getchar()) !'= *7\n’) /% discard rest of line */ 
if(c == EOF !! c == CNTLZ) /* except on end of file %&/ 
exit); /% quit «&/ 


printf ("low clear bits Ad\n", low_clear_bit‘i))s3 

printfi"high set bit : “Ad\n", hi_set_bitdi))s; 

printf ("side sum s “4d\n", side_sum(i)); 

printf ("parity : Ad\n", parity(‘i))s; 

r = Gray_to_binary(i)s3 

printf ("Gray code : OxZ04x\n", )3 

printf#("GTB To Binary: 0xZ04x\n", binary_to_Gray(r))35 

printf ("Reversed bits: OxZ04x\n", reverse_bits(i)) 3 

putchar (7\n"); /% leave a blank line between %/ 


This function returns the bit number of the lowest bit in the word 
which is clear (zero). The least significant bit is numbered O, the 
bit to the left of that, 1, and so on... 

A minus 1 is returned for words in which all bits are on. 

The time to execute this function is proportional to V which is 

log2 of the number of bits in a word. 

Note that the function low_set_bit may be created by complementing the 
argument and calling low_clear_bit. 


0 0 3 MM Me MH Mt 


x/ 
low_clear_bit (value) unsigned int value; 
{ unsigned int temp; 
int i, result; 
if((value = ‘“value) == Q) /% complement, test for zero &/ 
result = —1; /% zero means no clear bits &/ 
else 
{ result = QO; 
fordi = V-13 i >= Of i--) 
{ result <<= 13 /% make space for next bit */ 
temp = value & bifid; /*% test using magic numbers %/ 
if(temp == 9) 
result := 13 /* next bit of result is 1 ¥&/ 
else 
value = temp; /% discard disqualified bits %/ 


+ 


a rere 
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Binary Magic Listing (Listing continued, text begins on page 78) 


return (result); 


+ 
/% This function returns the bit number of the highest bit in the word 
* which is set (one). The least significant bit is numbered 9, the 
* bit to the left of that, 1, and so on... 
x A minus 1 is returned for words in which all bits are off. 
* The time to execute this function is proportional to V which is 
k log2 of the number of bits in a word. 
-* Note that the function high_clear_bit may be created by complementing the 
* argument and calling high_set_bit. 
x/ 
hi set bit (value) unsigned int value; 
{ unsigned int temp; 
int result, i; 
if(value == QO) /* if no bits are on */ 
result = —1; /*% return that info %/ 
elise 
{ result = QO; 
for(i = V-13) 1 >= OF i1--) 
{ result <<= 13 /% space for next bit &/ 
temp = value & b2fi1]; 
ifitemp ‘= 9) 
{ result i= 1; /* next bit is one X/ 
value = temp; /% discarded unneeded bits %*/ 
+ 
7 
7 
return (result); 
+ 


/*% This function returns a count of the number of bits which are on ina 
* word. It executes in a time proportional to V, the log base 2 of the 
* number of bits in a word. 

* Mote that a count of the nueber of zero bits in the word may be found 
* by complementing the value and calling side_sum. 
x/ 
side_sum(value) unsigned int value; 
{ ant 13 
unsigned int s; 
s = ls; 
for¢di=O; 1<Vs i++) /*% use magic in reverse order £&/ 
£{ 
value = (value & b1CiJ) + ((value >> s) & BILid); 
s <<= 1; /% generate the powers of two on the fly */ 
+ 
return (value) ; 

+ 

/* This function converts a number expressed in Gray code to the 
* equivalent binary number. It executes in time proportional to the 
* log base 2 of the number of bits in the word. 


x/ 
Gray_to_binary(value) unsigned int value; 
{ unsigned int s3 
for(s = N >> 13 s '= O3 s >>= 1) 
{ 


value “= value >> s; (Continued on page 82) 
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Binary Magic Listing (Listing continued, text begins on page 78) 


This function returns the parity of a word--that is, it returns a zero 
if the number of one bits in the word is even, and a one if the number 
The low order bit of the results of 

Gray_to_binary and side_sum both have this property, so isolating this 
Gray_to_binary was selected since it is 


/% build on previous work %&/ 


+ 
return (value) 5 
> 
/% 
x 
% of one bits in the word is add. - 
* 
% bit gives the desired result. 
*% a faster function than side_sum. 
4/ 
parity (value) unsigned int value; 
{ 
return(Gray_to_binary(value) & 1); 
> 


/% This function reverses the bits in a word. 
* out to be a very useful function to have available. 


Strangly enough, this turns 
Note that this function 


* works only on functions with word lengths which are powers of 2. 


x/ 
reverse bits(value) unsigned int value; 
{ unsigned int sS,1i3 
s = li; /% s provides the powers of 2 */ 
for (i=O; i<Vs i++) 
{ value = (4(value << s) & B2CiJ) | ((value >> s) & bifid); 
s <<= 1; 
+ 
return (value) 3 
+ End Listing 
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Research, Inc. 


¢ Takes full advantage of CP/M® 2.x, 
including random-record read, seek 
relative to file end, user number 
prefixes, and better error reporting. 


Vie sa $120.00 
V 1.46 ....$115.00 


(needs only 1.4 CP/M) 


IT’S HERE! 


MONEY MATH 


e Uses BCD internal 
representation. 





Other C compilers and F 
C related products 
available . . . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm 
Monday —Friday 
(316) 431-0018 


e You choose from two types 
of rounding. 


* Configurable exception 
ey handling 
¢ Distributed with 12 digits 
precision. Easily configured 
for more_or less 


e Excess 64 exponents 


SOURCE $5900 


INCLUDED 
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AS 
WIS 
Dedicated Micro Systems. Inc. 


p P.O Box 481, Chanute, Kansas 66720 
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Huge Discounts | 


on Systems, Components and Peripherals 


WELCOME TO ONE STOP SHOPPING: We offer a wide range 
of systems, peripherals and software at discounts of up to 34% 
off list price. Send $4 for catalogue replete with technical 
specifications, and other interesting information and receive 
a $10 discount coupon for your first purchase. A sampling of 
our discounts includes: GODBOUT 816 A $3,682 
U.S. ROBOTICS PASSWORD: $315 
HAZELTINE ESPRIT I: $480 
IMS 8000: $3,356 
NEC APC HO2: $2,758 

SYSTEMS: CompuPro/Godbout, EPSON QX10, IMS Inter- 

national, Intercontinental Micro, Lomas Data Products, NEC 

APC, Seattle Computer, Systems Group, Tarbell Electronics. 

PRINTERS: Epson, Mannesman Tally, NEC Spinwriters, Texas 

Instruments, Teletype Corp. 

GRAPHICS: Autocad Software, Houston Instruments Digi- 

tizer and Plotters, Scion MicroAngelo. 


PLUS: CORVUS AND QCS WINCHESTERS, U.S. ROBOTICS 
MODEMS, SOFTWARE, 3M DISKETTES, IBM 3270 NET- 
WORK TERMINALS AND PRINTERS, QUADBOARD. 


+*** WE EXPORT TO ALL COUNTRIES *** 


JOHN D. OWENS ASSOCIATES, INC. 
DEPT. DD 12 SCHUBERT STREET 
STATEN ISLAND, NEW YORK 10305 

(212) 448 6283 (212) 448 6298 (212) 448 2913 
TWX: 710 588 2844 CABLE:OWENSASSOC. 


Prices subject to change without notice. We have no reader inquiry number. 
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A Sample Run: 


Enter number °s: 
low clear bits 
high set bit : 


side sum : 
parity : 
Gray code : 


GTB To Binary: 
Reversed bits: 


Enter number : 
low clear bit: 
high set bit : 


Side sum 8 
parity 2 
Gray code s 


GTB To Binary: 
Reversed bits: 


Enter number : 
low clear bit: 
high set bit : 


Side sum : 
parity 3 
Gray code 3 


GTB To Binary: 
Reversed bits: 


Enter number 1: 
low clear bits 
high set bit : 


side sum : 
parity g 
Gray code z 


GTB To Binary: 
Reversed bits: 


Enter number 1: 
low clear bits: 
high set bit : 


Side sum 2 
parity : 
Gray code 3 


GTB To Binary: 
Reversed bits: 


Enter number : 
low clear bits 
high set bit : 


side sum : 
parity : 
Gray code 3 


GTB To Binary: 
Reversed bits: 


Ox0001 
Ox0001 
Ox 8000 


0002 

Oo 

1 

1 

1 

Ox 0003 
0x9002 
Ox 4000 


0003 

2 

1 

2 

Oo 
0x90002 
9x0003 
OxCo000 


Ox 0007 
0x0004 
Ox 2000 


8000 

oO 

iS 

i 

1 

Ox FFFF 
Ox 8000 
Ox0001 


OxSS55 
Ox 7FFF 
OxFFFE 
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Enter number : 
low clear bits 
high set bit : 
side sum : 
parity : 
Gray code 3 
GTB To Binary: 
Reversed bits: 


Enter number : 
low clear bits 


Enter number : 
low clear bit: 
high set bit : 
Side sum : 
parity 8 
Gray code : 
GTB To Binary: 
Reversed bits: 


high set bit : 
Side sum 8 
parity g 
Gray code : 
GTB To Binary: 
Reversed bits: 


FFFF 
—1 

is 

16 

@) 

Ox AAAA 
OxFFFF 
OxFFFF 


Ox 0000 
0x9000 
Ox0000 


12 
4 
oO 


Ox 1E1E 


Oxiiii 


Ox 8888 


Enter number : 
low clear bits 
high set bit : 
side sum s 
parity 3 
Gray code : 
GTB To Binary: 
Reversed bits: 


Enter number =: 
low clear bits 
high set bit 3: 
Side sum s 
parity : 
Gray code : 
GTB To Binary: 
Reversed bits: 


Enter number : 


End Sample Run 


3355 

< 

i3 

8 

oO 

Ox 2222 
Ox 3333 
ox CCCC 


LTT 

3S 

14 

i2 

Oo 

Ox SASA 
Ox7777 
OxEEEE 


SAVE YOUR 8 BIT SYSTEM 
Join the 16/32 Bit Revolution 
Through Evolution, For Under 


$600 





Would you like to run CPM86™, CONCUR- 
RENT CPM86™, CPM68K™, MS-DOS™, 
IBM™ PC APPLICATIONS, DEVELOP and 
TEST 16/32 BIT SOFTWARE, or add an IN- 
TELLIGENT HIGH SPEED RAM DISK to YOUR 
SYSTEM? 


You can with the HSC C016 ATTACHED RE- 
SOURCE PROCESSOR: 


C016 with either 8086, 80186, or 68000 16 
bit micro-processor and up to 768K Bytes of 
parity checked RAM may be connected to 
virtually any Z80 based computer system or 
APPLE 2E computer system. 


APPLE 2E™ 

RADIO SHACK TRS80™ 

ZENITH™ 

OSBORN™ 

ALTOS™ 

KAYPRO™ 

COLUMBIA™ 

TELEVIDEO™ 

DEC™ 

or OTHER Z80 BASED 
SYSTEM 


An 8 bit system equipped with C016 retains 
all of its original capabilities PLUS it has the 
added ability to run most 16 bit operating 
systems and applications. 


Prices start at $595.00 which includes the 
CO16 processor with 128K bytes of memory, 
two volume user manual, and the HSC Soft- 
ware Development System. Hardware options 
include memory expansion to 768K bytes, 
attractive desk top enclosure with power sup- 
ply, and the INTEL™ 8087 Math Co-processor 
(available on CO1686 only). Software options 
include CPM86, CPM68K, Concurrent 
CPM86, or MS-DOS™ operating systems. 
The UNIX™ operating system will be available 
in the second quarter of 1984. 


For Information on C016 Contact 


HSC INC. 

OX 

Herkimer, NY 13350 H S (INC. 
(315) 866-2311 


Dealer and OEM inquiries are invited. 
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SXR PLUS: Sorted Cross Reference 

Company: Prasek Computer Systems, Inc., 
Box 2427, Santa Clara, CA 95055 

Computer: Apple 11/Il+ (48K RAM) or 
ile with DOS 3.3 and Applesoft One 
disk drive; Optional (but strongly 
recommended): Printer, 80-column 
card, second disk drive 

Price: $39.95 

Circle Reader Service No. 133 

Reviewed by Charles Petzold 


SXR PLUS is a handy utility for pro- 
grammers who need a cross-referenced in- 
dex of variables in an Applesoft program. 
It is especially useful when debugging or 
modifying a program. 

SXR PLUS provides 40- or 80-column 
output to a screen or printer. Output may 
be tailored to include or exclude line 
number references, numeric constants, 
and/or quoted literals (strings). A search 
feature is included to find specific varia- 
bles. Special instructions are provided for 
programmers who want to move DOS 
into the upper 16K of an Apple Ile or to 
a 16K RAM card on an Apple II+. 


Complete instructions are contained 
in a 24-page booklet. It’s slow going the 
first time through because Prasek takes 
great pains to make sure you understand 
every step. After that first run-through, 
however, the procedure is so simple the 
manual isn’t needed unless you start 
having problems. If that happens, a 
troubleshooting guide is included to put 
you back on track. 


When SXR PLUS is booted, a menu- 
driven program is used to set initial 
parameters. You must decide whether 
you want line number references, numeric 
constants, and/or quoted strings included 
in the cross-referenced list. If you choose 
standard video output (a monitor or TV 
set), 40-column width is automatic. If 
you choose another output device (such 
as a printer), you must select the proper 
slot number and determine whether you 
want 40-column or 80-column output. 
The output will pause every 20 lines if 
you select the pause option. 


Once the parameters are set, the SXR 
PLUS diskette is removed from drive 1 
and replaced with the disk containing the 
program to be cross referenced. After this 
program is loaded, the disk is removed 
and the SXR PLUS disk reinserted. To get 
a cross reference, BRUN SXR PLUS and 
select either F for a full sort (as deter- 
mined by the parameters) or S to search 


for a specific variable. That’s about all 
there is to it. 

SXR PLUS comes in handy when 
youre debugging. Good programmers 
keep a list of every variable they use. If 
you make a typo and accidentally use 
BA$ instead of AB$, BA$ will show up in 
a sorted cross reference, and you will 
have found the error and the line number 
where the mistake was made. 


Another use for SXR PLUS is when 
you decide for one reason or another to 
change a variable. If you don’t change 
every occurrence, you’ve got trouble. 
Using the search function, you'll be able to 
find (and later change) every occurrence. 


Depending on the complexity of the 
program, a sort may take only seconds or 
it may take several minutes. For test pur- 
poses, I used the 47-sector LEMONADE 
program from Apple; a full sort took 
more than six minutes. I also tried a 91- 
sector program (PLANET.OF.THE. RO- 
BOTS on a Softdisk Magazette), and a 
full sort took more than eight minutes. 
Both sorts were viewed on the monitor, 
not a printer. 


Although SXR PLUS did everything 
it promised, there were some minor an- 
noyances. To set the initial parameters, 
for example, you must answer six or eight 
questions, depending on your answers. 
After answering all questions, you are 
asked if the parms are correct. If they are 
not, you must repeat your answers to all 
questions. It would be quicker and easier 
to change only those answers that need 
correction (or updating). This can be 
easily fixed with some minor program- 
ming changes. 

Another nice feature would be default 
parameters, with the default option being 
the option the user would most often 
select. To accept the default option, the 
user would merely hit the RETURN key. 

Also, no provision is made for a two- 
drive system. With some more minor pro- 
gramming changes, this could be added. It 
would eliminate the disk-switching re- 
quired under the one-drive system. 

Since SXR PLUS is not ona protected 
disk, experienced programmers will no 
doubt be quick to make the necessary 
modifications. 

With respect to copies and distribu- 
tion, Prasek has what they call a “‘share- 
the-fare”’ program. You pay $39.95 for 
the first SXR PLUS package, and $7.50 
for each additional package. There is no 
limit or restriction on the number of 
additional copies you can purchase at this 


price. User manuals alone are now $6.00. 

If you destroy your disk, you can 
also get a replacement disk for $5.00 if 
you return the original disk. While the old 
warranty was only five days, you are now 
protected for 90 days. Returns are made 
to Prasek. 


Perfect Writer Perfect Speller 
Company: Perfect Software, Inc., 1001 
Camelia St., Berkeley, CA 94710 

Price: $399.00 
Circle Reader Service No. 135 
Reviewed by Charles K. Ballinger 


By now you probably have read 
innumerable reviews on the most common 
word processors currently on the market 
and still can’t decide which one is for you. 

Well, perhaps you are going about it 
the wrong way. As in most things you pur- 
chase, don’t you decide what you want the 
product to do and then go out and find 
something that fits your requirements? 
(Of course, you know full well that in 
all things compromises must be made.) 

It has been 5 months now since I 
first received this software for review. I 
have run it through its paces enough to 
feel comfortable with it, and I can now 
tell you what may make you interested 
in this product. 

Since I do a lot of programming in a 
variety of languages, I look for a word 
processor that can: handle the demands 
made on it by a special group of users 
(programmers) and still be used to produce 
the documentation that is so necessary for 
an item I would produce. The following 
are things I wanted in a word processor 
but had not been able to find in any of 
the others currently on the market: 


1. No need for imbedded special codes 
that would prevent me from sending 
text files to other systems. 

2. Ability to view more than one input 
file in order to merge more than one 
program source into a new program. 


3. The absence of memory restrictions 
on the size of the source that I could 
edit at one time. 


4. The ability to produce documentation 
that consists of several files and to 
print them in a contiguous fashion 
and also produce more than one copy 
at a time. 


I found that Perfect Writer lives up 
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Volume 6 





Now Available! 





At last what you’ve been waiting for: ALL the issues from 1981 in 


one GIANT volume—over 550 pages long! 







The first all-FORTH issue (now sold out) 
More Small-C development 
Continuing coverage of CP/M 
Santa Barbara Tiny BASIC for 6809 
Pidgin - A Systems Programming Language 
Write Your Own Compiler with META-4 
The first ‘‘ Clinic’’ colurnns 
The Electric Phone Book 
JE. Hendrix’s Small-VM 
What FORTH Is? 

Several exciting Z80 utilities 
The Conference Tree 
PCNET information 
Several North Star tidbits 
An assortment of utilities 
And much, much more 


ee ee een onan renee nereeeesenewvesenpuiubpneaasecsbnnrsnevesenpamindvuesaeWutaveuns Wipstierionsusocveleiies danced sbauessvesoauh vusstdeveesduessiglivnies©skelasiwvessceinhnns, 


YES! L] Please send me the following Volumes of Dr. Dobb’s Journal. 
°C ALL 6 for ONLY $125, a savings of over 15% 








These are reduced prices 
Jor Dr. Dobb’s readers. 


IN sa ig as nad esi a ike Bh oe BS Vol. 1 Mabaso (ee) CS 
MON tetas, CAI Ps Oe 

Name Mh) es GIST S 
VOR 4 aoe ee Se 

Address VokS 2 eee 
VOL eee 

cee ee a i eae ee a Tae et PE Go oo ee IOS ae ee 
Subtotal geiotesok 

OR ge ta eon eke a et iepiration Date Postage and Handling 
Must be included with order. 

he chatge tity: i ees E This offer capires Please add $1.25 per book in U.S. 

isa erican Express 
C) ccc I enclose () Check / Money order March 31, 1984. Se 2S 
MAIL TO: Dr. Dobb’s Journal P.O.BoxE, Menlo Park,CA. 94026 Ls TOTAL 
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to these qualifications and even more. 

As supplied (on 8 -inch disk), the soft- 
ware was fairly easy to install. Perfect 
Writer is written in C and, as such, pro- 
vides the authors a means to continually 
update the product. Prior to installation 
you should read the introduction to get an 
overview of the software. Pay close atten- 
tion to the information on swapping (this 
is how Perfect Writer allows files larger 
than available memory), because this is 
where your disk capacity may play an 
important part. After the introduction 
you can proceed to the installation guide 
in Appendix A. 

The terminal configuration portion is 
by far the easiest. If you have a KayPro, 
Apple, Vector, Televideo, IBM PC, 
Osborne, Heath- Zenith, Columbia, Access 
Matrix, Seattle Computer, GE Intersil, 
Superbrain, or NorthStar Advantage it is 
just a matter of selecting the terminal from 
a displayed menu. Since I am running a 
Heath H-8 system, it was a simple matter 
to select my terminal type. 

If you can’t find your terminal type 
on the menu then you may go through a 
question/answer session with the program 
to arrive at the correct terminal configura- 
tion. This is one of the first programs I’ve 
seen where they make it perfectly clear 
just what you are supposed to respond 
with. The questions that require other than 
a yes or no response tell you explicitly 
to enter your response in hex or in deci- 
mal as required, instead of leaving it up to 
you to guess whether you enter hex, deci- 
mal, octal, or ASCII as a response. 


Perfect Software’s attention to detail 
in the installation section was a real treat 
compared to some I’ve seen. Software I’ve 
installed usually falls down in the printer 
installation portion: not Perfect Writer, 
however. If you do not have one of the 
supported printers (Epson, IDS460, Cen- 
tronics 737, Centronics PS, Diablo 1610, 
1620, 1640, 1650, 630, PS or equivalent, 
NEC 5510, 5520 or PS), you can go 
through a question/answer session and 
define your printer to the program. This 
procedure is very easy to follow, even fora 
layperson or first-time user. 

The documentation may, at times, 
seem overwhelming, particularly when 
you first start to use the software. Your 
best approach would be to skim the 
material and then start with the lesson 
disk to get an actual feel of the programs. 


My only minor complaint with the 
documentation is in the size of the book. 
I hate having to break the spine of a book 
just to get the thing to lie flat so I don’t 
keep losing my place (or having to place a 
weight on it to keep it open). A loose-leaf 
book, even if in the same size, would have 
been far easier to use and would have 
made updates or corrections to the 
manual possible. How do you correct a 
manual that is bound, short of making 
the user purchase an entirely new copy? 

The associated fold-out reference 
card is very handy and goes a long ways 
in helping you find that command you 
are looking for. All in all their documenta- 
tion rates a “‘well done.” 

With the inclusion of a separate lesson 





‘Worst data byte I’ve seen in a long time,” 


disk, it is almost impossible not to gain 
a working familiarity with Perfect Writer/ 
Speller in a couple of hours. Granted you 
won’t know all the commands or capabil- 
ities, but then of what value is a software 
product that you can take to its outer 
limits in such a short period of time? Pll 
tell you, it’s probably one that you will 
replace very soon. Most of the commands 
have a scheme that is quickly apparent, 
and you'll find that they are easily mem- 
orized. What’s nice about Perfect Writer/ 
Speller is that I’m still discovering things 
that it can do. 

Perfect Speller contains a 50,000 
word dictionary which is far easier to use 
than MicroPro’s SpellStar. The speed, at 


‘least on my machine (2 MHz 8080 with 


8-inch drives), approaches the estimate 
given in their manual: approximately 
4000 words/minute. 

I only had one minor problem with 
Perfect Writer/Speller (my own mistake, 
caused by being overzealous). When I 
contacted Perfect Software, Inc. — they 
even talk to users, unlike some — I found 
them to be most helpful and willing to 
provide the assistance I needed, pointing 
out that I had inadvertently missed a 
step. Not having identified myself as a 
software reviewer, I can only conclude that 
this is the normal support level that all 
users can expect to receive. 

As mentioned earlier, this product is 
a true help to a programmer when it 
comes to constructing new programs from 
existing ones. The ability to have multiple 
file buffers is ideal from a programming 
point of view because you can now pull 
currently running source code into your 
new creation without undue effort. In 
fact, you are allowed access to a maximum 
of seven input documents, and, with the 
ability to use split-screen mode, new pro- 
gram construction time should be cut by 
a considerable margin. 

All things considered I find this a 
perfect programmers’ tool. It provides 
you with a product that will assist you 
from coding through final documentation 
of your software. Now you only have to 
learn one product to produce both your 
source code and your finished documen- 
tation, without the fuss and bother of 
trying to remember more than one set of 
word processing commands. I’m sure you 
have had the problem of mixing com- 
mands if you currently use more than one 
word processor or have access to different 
machines. 

I heartily recommend this product 
as an excellent programming tool and 
documentation aid. With the introduction 
of the additional Perfect software family, 
and the trend of software vendors to pro- 
vide integrated software, I think this is 
going to be a hard product to beat. 


BBJ 
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EXPAND YOUR HOME COMPUTER LIBRARY 
WITH THESE BOOKS FROM 





RESTON/PRENTICE-HALL 





Programming 
Languages 


The C Programming Language by Brian W. 
Kernighan and Dennis M. Ritchie 

Prepares you to make effective use of the C lan- 
guage. This book gives you detailed explanations 
and examples of all the features of the language. 
You get a full description of the I/O library and 
learn how to write programs that will be portable 
from one system to another without changes. You 
also learn the UNIX operating system interface. 
1978 228 pp. cloth/$15.95 Prentice-Hall 


The C Puzzle Book, Puzzles for C Programming 
Languages by Alan R. Feuer 

A perfect companion to The C Programming Lan- 
guage Book, this puzzle book helps you understand 
C syntax and know what meaning a translator will 
ascribe to properly formed constructions. Each 
programming puzzle comes with its solution anda 
Step-by-step explanation of how the solution is 
derived. These puzzles challenge your mastery of 
the rules of C and exhibit pitfalls in the language 
that are most often learned only through trial and 
error. 

1982 173 pp. paper/$12.95 Prentice-Hall 


Pascal for the Apple by Jan MacCallum 

For the computer enthusiast who wants to learn 
how to program in Pascal on the Apple II and Apple 
Il Plus. Leads you line-by-line through sample pro- 
grams. Uses attractive graphics and the top-down 
approach to programming. You learn methods of 
designing correct programs. A supplementary disk 
of programs is also available to run as you study 
the book. 


1983 500 pp. cloth/$16.00 Prentice-Hall 


AND DR. DOBB'S JOURNAL 


Operating 
Systems 


A UNIX Primer by Ann Nichols Lomuto and 
Nico Lomuto 

This beginning level introduction to the UNIX Sys- 
tem is written entirely from the user's problem- 
solving viewpoint. After just 15 minutes of reading, 
you'll be able to start using UNIX—by the end of 
the book you'll be a sophisticated user. Realistic 
examples illustrate why features exist (rather than 
just how to use them). You'll appreciate the 
imaginative, practical applications and trouble- 
shooting tips this hands-on book offers. 

1983 240 pp. cloth/$19.95F Prentice-Hall 


The Programmer's CP/M Notebook: Applica- 
tions and Analysis by David Cortesi 

Displays the process of designing and building 
software for the CP/M operating system. Contains 
12 complete, functional programs of considerable 
length, which, if purchased from software publish- 
ers, would cost between $100 and $300. For each 
program, the book considers your needs as a user, 
develops a verbal specification, works out the pro- 
gram logic in a high-level language, and presents 
the assembly language code that implements the 
program. 

1982 352pp. cloth/$15.95 Reston 
paper/$10.95 


Starting FORTH by Leo Brodie 

Gives you a clear and comprehensive introduction 
to FORTH, the revolutionary approach to computer 
programming. FORTH increases your control over 
your computer and environment. This book has 
everything from the basics to advanced topics such 
as combining words, vectored execution and FORTH 
techniques for fixed-point arithmetic through 
scaling. 
1981 384 pp. paper/$15.95 Prentice-Hall 
Using the UNIX System by Richard Gauthier 
A down-to-earth guide to the many program 
development features of the UNIX system. This is 
an excellent handbook that shows you how to 
handle everything from specific commands to files 
to overall system design for new applications. It's a 
valuable addition to everyone's professional library. 
1981 297 pp. cloth/$18.95 Reston 









Software 
Engineering 


Designing Systems with Microcomputers: A 
Systematic Approach by M. David Freedman 
and Lansing B. Evans 

Here's a self-contained method for designing sys- 
tems that contain microcomputers. You get cost- 
effective engineering approaches for designing, con- 
structing and integrating software and hardware. 
There are ingenious examples of implementation, 
such as how to design a microcomputer-based 
burglar alarm system. All design procedures are 
given step by step with extensive documentation. 
1983 320 pp. cloth/$26.00F Prentice-Hall 


Robotics 


Robotics and Automated Manufacturing by 
Richard C. Dorf 

This unique book considers the fundamental con- 
cepts and applications of robotics and computer- 
aided manufacturing systems that may be effec- 
tively utilized in the nation’s work places. One of 
the first thorough examinations of this exciting 
new field, this book considers the issues of produc- 
tivity and automation, and then reviews the his- 
tory, development and classification of robots, 
their mechanical and electrical components, and 
sensors and vision systems. Also addressed are 
economic, labor, and work place considerations and 
the future of robotics and automated manufactur- 
ing. 

1983 208 pp. cloth/$24.95 Reston 


Computer 
Education 


Computer Anatomy for Beginners by Marlin 
Ouverson 
A perfect guide to home computers for the absolute 
beginner. If you're curious about what computers 
do, but don’t know what questions to ask — this 
book is written for you. It answers all your ques- 
tions: How to decide which computer to buy, 
whether you really want a computer or not, what 
uses you are likely to find for it, where to get 
assistance, and what questions to ask. 
1982 208pp. paper/$10.95 Reston 
cloth/$15.95 
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Mail coupon to: Dr. Dobb’s Journal/P.O. Box E/Menlo Park, CA 94026 


Yes! Please send me the book(s) in the quantities I've indicated below: 


——A Unix Primer, 93888-6 cloth @ $19.95F 


—— Computer Anatomy for Beginners, paper RO919-2 @ $10.95 
cloth RO920-0 @ $15.95 
—— Designing Systems with Microcomputers, cloth 20135-0 @ $26.00F 
—_ Pascal for the Apple, paper 65289-1 @ $16.00 
—— Programmer's CP/M Notebook, paper R5641-7 @ $16.95 
cloth R5642-5 @ $21.95 
—— Robotics and Automated Manufacturing, cloth R6686-1 @ $24.95 
——__ Starting FORTH, paper 84292-2 @ $15.95 
—— The C Programming Language, cloth 11016-3 @ $15.95 
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Cryptography. Proceedings of the 
Workshop on Cryptography, Burg 
Feuerstein, Germany, Mar 29- 
Apr 2, 1982. 

Edited by Thomas Beth 

Published by Springer-Verlag, 1983 
$18.50, 402 pages 

Reviewed by Richard L. Lozes 


A Proceedings volume must be viewed 
from two perspectives: global and de- 
tailed. A smooth, logically connected, 
and well-styled global view is the re- 
sponsibility of the editor. An accurate 
and complete paper is the responsibility 
of the authors. 

These Proceedings cover a wide range 
of topics from classical cryptography 
to the Rivest-Shamir-Adleman scheme. 
Given the strides made in cryptography in 
the last decade, it is surprising to find 
papers concerning mechanical contrivances 
such as the Enigma machine. This histori- 
cal view, nonetheless, is helpful; it moti- 
vates the abstract mathematical arguments 
later in the volume by means of physical 
analogies. The editor has performed his 
job ably. 

The authors, too, hold up their end 
of the bargain. By and large, the papers 
are well organized and clearly presented. 
Understandably, one or two authors have 
difficulty with the English language. 

Certainly, a Proceedings volume can 
never be recommended as a self-study 
text. However, I suspect that students of 
cryptography, with little prior exposure, 
could glean much valuable knowledge, 
especially if they were careful to study and 
commit to memory the introductory 
mathematics to be found in the first 
paper. 





IBM Data Files 
By David Miller. 
Published by Reston Publishing/Prentice- 
Hall 
$15.00 paper, 260 pages 
Reviewed by James Moran * 
One of the failures of documentation 
for personal computers is the paucity of 
adequate information on the use of disk 


*Copyright © 1983 by Compu-Syn. 


files. Documentation for the IBM PC is 
not an exception, unfortunately, but puz- 
zled PC users might find some needed 
answers in this book. 

In IBM Data Files, author David 
Miller has created a useful tutorial for 
novice users of the IBM PC. The book as- 
sumes that the typical PC owner’s famili- 
arity with disk devices stops with the 
user’s ability to load a piece of packaged 
software, and it attempts to address that 
limited knowledge in classic textbook for- 
mat. Information is presented clearly in a 
precise manner and is followed by short 
quizzes to test the reader’s understanding. 
One of the nice touches in the book is 
the grouping of programming examples at 
the end of each chapter. After finishing a 
chapter, the reader keys in the examples 
and runs them on the PC. In addition to 
reinforcing the learning process, this con- 
cept leaves the reader with a library of 
practical and usable programs after the 
book has been read. 

IBM Data Files begins with a short 
introduction on the mechanics of using a 
diskette drive and progresses to file design, 
programming techniques, and, finally, file 
planning strategies for integrated systems 
— a particularly useful section, if a bit 
short. VisiCalc users will find the section 
on creating DIF files to be the most use- 
ful part of the book since the author was 
most generous in furnishing examples on 
how to standardize user file formats so 
that they may be transferred for use ina 
VisiCalc program. 

This book does have some minor weak 
spots, and those would be most noticeable 
to readers towards whom author Miller 
seems to have directed his information: 
the beginning user. For example, it is 
somewhat surprising not to find a single 
diagram or graphic to visually enlighten 
the reader about the physical organiza- 
tion of a diskette. Some examples of ran- 
dom access algorithms would also have 
made this book more useful to PC owners 
who have an intermediate level of knowl- 
edge about their equipment. 


All things considered, the book would 
probably be most useful to beginning and 
intermediate users. Those who are more 
technically knowledgeable may prefer a 
book with greater depth or more advanced 
topics although even they might find that 
the working program examples are worth 
the price of the book. Among those pro- 
grams is a complete home inventory sys- 
tem that is contained in 36 pages of 
BASIC code. And for those readers that 


would rather not spend more than a few 
hours keying in the programs, an offer by 
the author to supply the programs on 
diskette for fifteen dollars seems like a 
pretty good deal. 





Microprocessor Support Chips: 
Theory, Design, and Applications 

By T. J. Byers 

Published by MicroText/McGraw-Hill, 
August 1983 

$38.00 hardcover, 224 pages (170 illus- 
trations) 

Reviewed by David W. Carroll 


Microprocessor system designers have 
recognized that in most applications it 
is neither practical nor efficient to have a 
microprocessor perform all of the routine 
tasks required in a complex system. 
Rather, specialized support integrated cir- 
cuits (ICs) have been developed to handle 
individual system support requirements. 

Recognizing that these parts are nec- 
essary for economical, high performance 
designs in today’s complex microproc- 
essor-based systems, T. J. Byers has com- 
piled a collection of 97 state-of-the-art 
support chips in his book, Microprocessor 
Support Chips: Theory, Design, and Ap- 
plications, recently published by Micro- 
Text/McGraw-Hill. This design reference 
offers often hard-to-get information on 
many support ICs, including pin-outs, 
typical application schematics, and speci- 
fic interfacing and design information. 
This book is not intended to replace 
the manufacturers’ data sheets; rather it 
supplements them with real-world appli- 
cation information. 

Some areas covered include telecom- 
munications, power supply and special 
purpose, interface, control, video, and A/D 
and D/A converters. Telecommunications 
parts include various serial communica- 
tions interfaces, protocol converters, local 
area network controllers and interfaces, 
and modem chips. Under power supply 
and special purpose we find keyboard and 
display controllers, data encryption chips, 
timers, parallel interfaces, and pulse width 
modulators for switching power supplies. 
The control ICs section includes printer 
and stepper motor controllers, floppy 
disk formatters and controllers, and Win- 
chester hard disk controllers. The video 
chapter covers most currently popular 
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video display and CRT controller chips. 
Twelve data converters are included in the 
last chapter on A/D and D/A converters. 
This book is primarily a design refer- 
ence for serious digital engineers, allowing 
a rapid comparison of alternative compo- 
nents and helping to rapidly initiate the 
design of an operating application circuit. 
Each part is covered on two facing pages 


— details of operation, pin-out, and ap- - 


plication notes are on the left page while 
the application schematics are on the 
right. The operating specifications and 
parameters of parts are not included in 
this book. Users should plan on obtaining 
data sheets on parts from their manu- 
facturers. The book’s format is hardcover, 
8’%2 x 11 inches, making the pin-outs and 
schematics easy to read and somewhat 
justifying its $38.00 price tag, if one keeps 
in mind the limited audience and short 
useful life of this type of subject material. 

The author advises that the selection 
of parts was made based on the current 
trends in the industry and the publisher’s 
limitation of 100 total parts. A second 
volume may be expected next year, 
covering an additional 100 support ICs. 
grated circuits. 

Overall, Microprocessor Support Chips 
lives up to its author’s stated goal to 
“greatly facilitate the use of new chips 
in current designs.’’ However, I find its 
subtitle, Theory, Design, and Applica- 
tions, misleading. Very little theory is 
presented and design aid is mostly by 
example. Perhaps Design Applications 
would have been a more appropriate sub- 
title for Microprocessor Support Chips. 





Z80 Applications 

By James W. Coffron 
Published by SYBEX 
$15.95, 295 pages 

Reviewed by Chuck Ballinger 


As you might have guessed from the 
title, this book deals with the internal 
world of the Z80 chip as well as with all 
of the associated support chips. 

The book is easy to follow and pre- 
sents the concepts and functions of the 
Z80 in an easy to understand manner. 
With the aid of schematics and diagrams 
the author explains many areas of com- 
mon confusion. 

The book first takes you on a tour of 
the various ROMs (ROM, PROM, EP- 
ROM, and EAROM) and gives an in-depth 
explanation of each one in terms of func- 
tion and application. Continuing on the 
tour, both static and dynamic RAM are 
explained, along with a discussion of 
circumstances where one would be pre- 
ferred over the other. Complete layouts 
are also presented for most of the cur- 


rently used RAM chips, including wiring 
hints. 

Chapters on Z80 I/O and Interrupts 
proved very informative. I never really 
quite understood Interrupts until going 
through that chapter. The author’s blend 
of excellent text with visual diagrams 
and circuit layouts presented what I had 
been unable to find in any previous text. 

If you are interested in knowing the 
how and why of your Z80-based system, 
you are sure to find an answer in this 
book. In the chapters dealing with the 
Z80 PIO (8255), the author has even in- 
cluded assembler source for various rou- 
tines that are common for the 8255 I/O 
chip; he steps you through the routines so 
you can see why they are coded in that 
fashion. This section also includes an ex- 
planation of the Z80 CTC (counter- 
timer-chip), as well as assembler source. 

With the current interest in modem 
communications, the chapter on serial 
communications may help you explore 
the hows and whys. Start bits, parity 
bits, and stop bits are described clearly 
and thoroughly. For communications 


buffs the 8251 USART is covered pin by 
pin. Examples are presented that even 
provide information on how to send com- 
mands to the command register, which is 
something I’ve never seen explained to 
my satisfaction in any other book. 

The book can be used for those inter- 
ested in designing their own systems. 
However, I think that the number of 
homebrew systems being built are going 
the same direction as homebrew ham 
equipment — it’s cheaper to buy an 
assembled unit than to build one. Where 
the book does come through is in the 
explanation of the various chips that make 
a Z80-based system and how special fea- 
tures found in most computer systems 
can be programmed. 

The discussions of interrupts and pro- 
gramming the command modes for the 
serial I/O chips make the book a valuable 
addition to anyone’s library. With the 
advent of newer CPU’s many say the 8080 
and Z80 will disappear. To the contrary, 
I say that you will start seeing the devices 
in your toasters, blenders, etc., and per- 
haps you would like to know what makes 
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them tick. This book can be used both 
as a reference manual and a repair manual 
since it gives you an in-depth working of 
what goes on under your CPU’s cover. 


Concepts for Distributed 
Systems Design 

By Gregor von Bochmann 

Published by Springer-Verlag, 
Heidelberg 

$19.00, 259 pages 

Reviewed by Robert Irving 


Von Bochmann uses very formal 
guidelines when writing about systems. A 
full half of the book, including the an- 
nexes, is devoted to the requirements for 
specification of a distributed system. The 
first quarter defines and gives examples of 
distributed systems, specifically excluding 
multiprocessor systems but including a 
modular system in one physical location, 
which is laid out so that it could be dis- 
tributed. The second quarter reviews ar- 
chitecture and communications protocols. 

The reader is assumed to be a com- 
puter professional well-versed in conven- 
tional computer architecture and modular 
software design. This approach, combined 
with the terse, formal text and lack of an 
index, limits the application of this book 
as a text as well as a reference volume. 
However, if you already have a copy of 
Paul Green’s Computer Network Archi- 
tectures and Protocols (Plenum 1982), 
this book would be a useful supplement 
with regard to writing system specifica- 
tions. 


Berlin- 


An Introduction to Numerical 
Methods with Pascal 

By L. V. Atkinson and P. J. Harley 

Published by Addison-Wesley 
Publishing Company 

$16.95, 300 pages 

Reviewed by Robert Ashworth 


This book blends numerical methods 
with Pascal and calls upon the benefits 
of those data types to provide a natural 
implementation of the respective methods. 
While it is a college text for those of a 
scientific bent, no knowledge of numeri- 
cal analysis is required. Familiarity with 
Pascal is assumed, and the text flows very 
well and can quickly be adapted for mi- 
cros or even mainframe environments. 

The text begins with a review of Pas- 
cal and builds on its merits: transparency 
(the intention of a well-written program 
being self-evident), security (the com, 
helping to detect errors), and efficie1. 


(its design taking implementation into ac- 
count). Emphasis is on the implementa- 
tion of methods on a computer so as to 
reinforce their understanding. 

Next comes a full treatment of 
rounding errors: those contributed by the 
method selected, and those inherent in 
the computer itself. Chapters 3-5 cover 
the solution of linear and nonlinear equa- 
tions. Here the LU decomposition tech- 
niques are given prominence and the in- 
verse of a matrix is explained. This part 
concludes with the treatment of the eigen- 
value and the eigenvector problems, as 
well as a short discussion of the non- 
symmetrical cases. 

The next three chapters deal with 
discrete functions, differentiation and in- 
tegration, and finally present an overview 
of ordinary differential equations, The 
Pascal programs are written out in full, 
extending over several pages. 


Exercises were provided for each 
chapter but a solutions appendix was not 
included. I found the text to be very well 
written, with sixty-two useful programs. 


Augmented Transition Networks 
Edited by Leonard Bolc 

Published by Springer-Verlag, 1983 
$29.00, 213 pages 

Reviewed by Chuck Ballinger 


Confused by the title? Well, if you are 
not sure what an Augmented Transition 
Network is I’ll try to explain. An Aug- 
mented Transition Network (ATN) is 
used in the design of interpreters, com- 
pilers, and editors as a method of factoring 
the input. Assume you have a data 
base that contains information on air- 
planes and you have presented a com- 
puter terminal with the following ques- 
tion: “How many Skyhawks required 
engine repair in 1973?” The processing of 
that request would require three main 
steps: parsing, interpretation, and evalua- 
tion. The first phase is what this book, as 
a collection of four papers, attempts to 
ex plain. 

As a collection of papers that are 
related, but not directly integrated, there 
is some discord in the authors’ presenta- 
tions. Due to the nature of the subject, 
the amount of deviation does not detract 
from the initial subject, provided you are 
well versed in ATNs before picking up 
this book. This is not a tutorial or step- 
by-step book. If you don’t know ATNs 
at the onset this book will not help you 
pick up any additional information. 

Unless you are well versed in compiler 
design and implementation this book will 
be far above the average- or medium -level 
programmer. This text is intended for a 
very limited audience with a very special- 
ized background or interest level. Since it 


is a collection of four papers, and each 
paper has little cross-relationship with 
the other, you must understand the mate- 
rial from the onset in order to have any 
inkling of what the individual authors are 
trying to convey. 

If you are involved in the design of 
compilers, interpreters, or editors then 
this book may be of value to you. The 
textbook value may justify the cost as the 
areas covered include, ‘“‘The Planes Inter- 
preter and Compiler for ATN Grammars,” 
“An ATN Programming Environment,” 
“Compiling ATN into MacLisp,” and fi- 
nally ‘Towards the Elastic ATN Imple- 
mentation.’ If one of these individual 
papers is of interest to you then you might 
be interested in this book. For the vast 
majority of computer users/programmers 
this book should be bypassed. For those 
interested, the book is full of examples of 
the various methods of ATN. The entire 
text is double-spaced in typical college 
manuscript format and is well structured. 


BB 





Letters 
(Continued from page 7) 


Fast Conic Curves 


Dear DDJ: 


A general algorithm for drawing any 
conic curve at any orientation uses a 
slightly different viewpoint than the one 
detailed by Michael Enright (DDJ No. 86, 
December 1983, pp.19-20), but still yields 
all the benefits of his method. Assuming 
the cursor starts on the curve, the best 
direction of the four possible directions 
is chosen by evaluating the potential dis- 
tance that each would be from the actual 
curve and taking the one that gives the 
smallest. This distance is found by using 
a form of the gradient which for conic 
equations is linear, i.e., using addition not 
multiplication. By updating a table of 
possible changes again using only addition, 
the gradient at each point can be main- 
tained. The algorithm continues in this 
way until it nears the endpoint. The al- 
gorithm draws the ‘‘best possible’ curve 
— the one closest to the actual curve. 

I developed this method three years 
ago for drawing circles and circular arcs. 
In the degenerate case it yields the stan- 
dard method for drawing lines. With the 
growing speed and capacities of micro- 
processors, I believe that algorithms that 
‘look before they leap” will be increas- 
ingly useful. 

Jim Hatton 
3715 Summit Drive 
Mt. Shasta, CA 96067 
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operator prompts, and making CP/M friendlier. 
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by Ray Duncan 








Bill Savage’s floating-point bench- 
mark program, discussed in this column in 
DDJ, September 1983, apparently caught 
the interest of a large number of readers. 
Versions in BASIC (9/83), PL/I (9/83), 
Fortran (1/84), Forth (11/83), Pascal 
(11/83), and C (Listing, page 96) have 
been contributed along with many 
timing reports. 


In Table I (page 93) I have compiled 
the figures sent to me to date and sorted 
them in order of execution time (thank 
goodness for dBASE II). When duplicate 
timings on the same language and CPU 
were sent by different readers, I generally 
picked the more conservative results. A 
few languages were omitted altogether 
because of gross conflicts between two 
different reports (the IBM 4341 Fortran 
was one of these). I have also attempted 
to screen out any obvious typographical 
errors or blatant publicity grabs; never- 
theless, let the reader beware! 


The largest number of contributions 
came to DDJ via Gerald Edgar of Colum- 
bus, Ohio, who put the original benchmark 
program onto the CompuServe bulletin 
board system and asked for donations. 
This resulted in a set of over 50 timings, 
which he then sorted by degree of error, 
CPU, and language. After eliminating the 
duplications, I added these to my own 
table and designated them by the name 
“COMPUSERVE”’ in the “Source”? col- 
umn. Hearty thanks to all the anonymous 
CompuServe users who took the time to 
read and comment on this project. 


Turning our attention to the table, 
the column “FPP” contains the type of 
hardware floating-point support that was 
used, if any was noted by the contributor. 
Most of the timings were accurate only to 
the nearest second (except for the very 
fast mainframes); they are displayed to 
three decimal places as an artifact of the 
dBASE II report program. The column 
“Error” was calculated as ABS (2500.000 
- A), converting to scientific notation and 
rounding the mantissa to the nearest inte- 
ger. Obviously, the smallest errors corre- 
spond to the most accurate results. 


This collection demonstrates very 
clearly that personal computers based on 
the Intel 8086 or 8088, when augmented 
with the 8087 floating-point coprocessor, 
can offer performance on this limited 
benchmark that is competitive with 
“‘super-minis’? or mainframe computers 
costing ten to a hundred times more. Of 
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cqurse, many significant issues such as 
the cost, size, and speed of mass storage, 
sophistication of systems tools, and ability 
to handle large numbers of interdepen- 
dent processes are being totally ignored 
here. 


We also received some advice and 
gentle chastisement from readers who are 
more knowledgeable on the subject of 
floating-point libraries and benchmarks 
than yours truly. I have excerpted a few 
of these letters below. 


Jeffrey M. Speiser, of San Diego, Cali- 
fornia, writes: “It should be noted that 
for this benchmark the accuracy of the 
result is only suggestive of the accuracy 
of the floating-point arithmetic since: 


“1) Errors of opposite signs can cancel 
in the final result, suggesting greater 
than actual accuracy. 


“9) The errors can occur primarily over a 
small part of the argument range, sug- 
gesting much worse accuracy than is 
present over most of the argument 
range. 


“3) Careful examination of one case 
showed that not only was the error 
primarily in the TAN-ARCTAN pair, 
but it could be explained by as- 
suming that both functions were com- 
puted exactly, with roundings only 
to the nearest machine-representable 
number. Moral: do asimple sensitivity 
analysis for any critical calculation, 
by using the first two terms in a Tay- 
lor series expansion.” 


Harry J. Smith, of Saratoga, Cali- 
fornia, writes: ‘“‘...I duplicated [the 
previously published results] for Fortran- 
80, BASIC-80, and PL/I-80 with the 
standard floating-point libraries. But 
when I also displayed the results of each 
iteration, I made a startling discovery. 
Both the Fortran-80 and BASIC-80 
programs reached their final value of 
2304.863 and 2304.860, respectively, on 
the 2230th iteration and then repeated 
this same output for the next 270 itera- 
tions. If the original program had been 
asked to do 2305 iterations instead of 
2500, then Fortran-80 and BASIC-80 
would have looked quite good. The 
foregoing exemplifies the possibility of 
superficial tests leading to false conclu- 
sions...” He went on to describe in 
detail some procedures for evaluating 


error in floating-point libraries, which we 
will save for a later column. 


Karl J. Casper, Professor of Physics at 
Cleveland State University, contributed 
timings on machines ranging from the IBM 
370 to the Hewlett-Packard 15C calcula- 
tor. He commented: “This program .. . is 
somewhat unfair to the microcomputer if 
only single-precision numbers and func- 
tions are used. For example, I do not think 
that Microsoft really improved their algo- 
rithms from the Model I TRS-80 to the 
Color Computer. It is more probable that 
the increased accuracy results from in- 
creasing single precision to nine places on 
the CoCo. 


“The problem is that the program 
begins to check angles very close to 90 
degrees after only a few iterations. Most 
rational number approximations are de- 
signed to give good values for the func- 
tions over a wide range of arguments. It 
is certainly not clear that this program 
would correspond to any physically 
meaningful problems. Where physicists 
find that they are dealing with very small 
numbers, they would not usually try to 
evaluate these numbers by adding and 
subtracting large numbers. Physically 
meaningful benchmarks, however, would 
be very useful for evaluating computers. 


“The point I am making is pretty 
simple. The Model I TRS-80 fails to get 
an accurate value simply because it lacks 
double-precision functions in BASIC. 
Both Pascal-80 and Fortran-80 (using 
double-precision functions) generate the 
correct value when run on the Model I, 
whereas Molinerx 5.1 Pascal generates the 
same value as Level II BASIC. (It is, of 
course, comforting to find that both the 
Sinclair ZX-81 and the HP-1SC calcula- 
tor obtain accurate values.) For a sci- 
entist, speed is occasionally important, 
but the fact that some computers run at 
breakneck speed is hardly significant when 
the wrong answer is obtained. Checking 
this benchmark on the IBM 370 yielded 
even faster speeds than MicroFloat [hard- 
ware-assisted floating-point libraries]. 
But while an interactive Waterloo BASIC 
obtained the correct answer, IBM BASIC 
failed by a wider margin than any micro- 
computer.”’ 


I will continue to add results to the 
data base as they come in and will plan to 
publish the expanded collection in about 
six months. If any readers have proposals 
for a more fair, exhaustive, and physically 
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of hardware floating-point processor (if 


meaningful floating-point benchmark pro- 
gram, let’s see those too! We have a notice- 
able deficiency of C language results com- 
pared to the huge number of compilers 
that are currently available. Some inter- 


COMPUTER NH? 


HONEYWELL 

TRH 374 

DEC VAX 11/780 
HP 1000-F 

TBM 208! 

KONE YWELL 

DEC VAR 11/786 
IBN 370 


HP A7OO 

TRN PE (8088) 4,77 
s0d6 3.0 

HF F000 (48000) 

HP 1000-F 

Bugs 0 

TBR PC (8089) 4,7] 
DEC PDP 11/44 

DEC VAY 14/786 

LRA PC (8088) ‘73 
IBA PE {B088) 4,77 
DEC POP if /44 

BEC PDP i1/34 

TEM FC (8088! 4,77 
HP 1 Q00F 

S085 a. f 

8085 wef 

8085 well 

g093 af) 

IRM FC (8088) 4,77 
ASO? 4,0 

s088 4,] 

APPLE fi (6502) 1.75 


DEC PDF 11/44 

DEC MINT 11/23 

DEC PDP 11/44 

HEATH H-d9 (7-80) 4, 
BEC PRP 11/44 

BEC MINC 11/23 

AP F184 

HF FARE (48000) 


TEN FC {8088} 4,77 
DEC L5I-41/23 
BEC LSI-11/23 
WANG PC (80864) a. 
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Floating-Point Benchmarks for DDJ 


LANGUAGE 


MULTICS FORTRAN 
WATERLOG BASIC 
VAS FORTRAN-77 
FORTRAN 4 

PL/I 

MULTICS FORTRAN 
VMS FORTRAN-77 
TEN BASIC 
FORTRAN 4 

WL SYSTEMS FORTH 
PL/I-86 

FORTRAN (UNTY) 
FORTRAN FING 
FL/I-8 
BYP-FORTH 
ROX-i1N FORTRAN 
PASCAL 
MICROSOFT PASCAL 
MICROSOFT FORTRAN 
ROX-1iM FORTRAN 
RT-ii FORTRAN 
BASIC COMPILER 
BASIC 

RMAC 

PL / 1-86 
RASIC-80 
FORTRAN-8O 
RASIC COMPILER 
uCSH P S¥STEN 
UCSD PASCAL 
MVP-FORTH 


ROY-1iM BASIC-PLUS-2 


FORTRAN 
ROX-1iM BASIC 
FORT RAN-BG 
RSX-11N FORTRAN 
MING BASIC 

HP BASIC 

BASIC 

RASIC COMPILER 
C dNTX) 
PROCAL-2 

BASIC INTERP 


VERS 


2046 


1.04 


2040 


1.0) 


2. 


1,40 
v7 
2.18 


1.0.2 


Table 1. 


FPP 


8087 
R087 


R87 
8087 
FIS 


R087 
#087 
FI§ 

FI5 

R87 
8732 
a232 
R232 
§237 
Big? 
9231 
A087 
9514 


FRU 


Pall 


FPL 


FP 


TINE 
(SEC) 


, 500 
i, 276 
G,578 
,630 
0,640 
1,000 
1.054 
oad 
2.000 
3,206 
3,700 
4006 
4,000 
4, G06 
4,306 
4,800 
a, OOO 
&, 000 
&, 200 
&, 900 
7, git) 
7, 800 
8,000 
10,204 
10,400 
10, 706 
12,500 
14,206 
16, 5900 
18,000 
18, 300 
21,800 
22,000 
27,200 
34, 4600 
38, 000 
44, G0 
44,296 
$8,000 
wh, Oi 
66,006 
68, 000 


esting languages are missing altogether, 
including LISP, Logo, Ada, and Modula II. 
If you are kind enough to send in timing 
results, be sure to note whether single - or 
double-precision were used and the type 


ERROR 


E+! 
ZE-] 
C1E-3 
2E+2 


fE=25 


le*s 
C1E~3 
ZE+3 
3£-9 
iE-3 
2E+i 
2E-6 
wE-3 
ZE+] 
CHE+3 
zet? 
b£-i0 
.40-3 
{{E-3 
ze-] 


1E~3 
SE +2 
ge= 3 
ae~3 
ey 
oes 
<iE=3 
ZEt2 
ZE-7 
ZE+2 
if+2 
2E+2 
1E+2 
ZEt+? 
1E+2 
2E+2 
3b-7 
C1E-3 
FE+h 
bE -# 
ie=} 


ZE+2 


any). 


BR! 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 196. 


SOURCE 


SHERMAN GROMNE 
KARL CASPER 
SHERMAN GROMME 
COMPUSERVE 
COMPUSERVE 
SHERMAN GROMME 
SHERMAN GRONME 
KARL CASPER 
COMPUSERVE 
JOHN GOTWALS 
BILL SAVAGE 
COMPUSERY 
COMPUSERVE 
COMPUSERVE 

C. SPRINGER 
JOHN TOQSCAND 
COMPUSERVE 

d. SPEISER 

u, SPETSER 
JOHN TOSCAND 
J, SPETSER 

u. SPEISER 
COMPUSERVE 
BILL SAVAGE 
BILL SAVAGE 
RILL SAVAGE 
BILL SAVAGE 
J. SPEISER 
STEVEN SPEARS 
COMPUSERVE 

C. SPRINGER 
JOHN TOSCANG 
BILL SAVAGE 
JOHN TOSCAND 
JOHN TOSCAND 
JOHN TOSCAND 
KILL SAVAGE 
COMPUSERVE 
BILL SAVAGE 
J. SPETSER 
COMPUSERVE 
COMPUSERVE 
RAY DUNCAN 


(Table continued on next page) 


A ee sense ne 


COMMENTS 












SINGLE PREC, TIME APPROX, 
SINGLE PREC 
DOUBLE PREC, TIME APPROX 


DOUBLE PRECISION 
PRESUNED SINGLE PREC 


BICROFLOAT LIBRARY 


DBL PREC, SEATTLE 87.LIR 
DBL PREC, SEATTLE 87.LIB 
DOUBLE PREC 


PBL PREC, SEATTLE 87.LIB 
NICROFLOAT LIBRARY 
MICROFLOQAT LIBRARY 
MICROFLOAT LIBRARY 


MICROFLOAT LIBRARY 
DRL PREC, NICROWARE LIB 


SINGLE PREC 


SINGLE PREC 
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(Table I continued) 


COMPUTER MHZ LANSUAGE VERS FPP TIME ERROR SOURCE COMMENTS 
(SEC) 

iRR PC (8088) 4,77 SUPERSOFT FORTRAN 1.07 70.000 SE+! HUGH KAWABATA SINGLE PREC 

SUN WORKSTN = 168000) UNTX CC CORPILER 95.000 C1E-3 JGHN TOSCANG 

TEM FC (8088) 4,77 1 CB «£350 8087-85. 000 LE-3 J. SPEISER DOUBLE PREC 

8004 wad BASIC-86 oe 20 92.200 SE+2 BILL SAVAGE 


PEC POP 11/44 
DEC POP 11/44 


RSXIIM FORTRAN 
RSX-116 BASIC-PLUS-2 


103.000 2E-1 
113,600 <1E-3 


JOHN TOSCANG 
JGHN TOSCANO 


DOUBLE PREC 
DOUBLE PREC 


b8000 8. ( 


UCSD PASCAL WW.12 115.000 3E-7 COMPUSERVE 
TEN FC (8088) 4,77 TEM APL 117.000 1£-2 J. SPETSER 
&g09 2.4 PASCAL 119,000 BE+0 ANDY BALL KICROWARE SYSTEMS CORP 
HP 1O00E FORTRAN 4 2026 121,000 36-8 COMPUSERVE 
#080 2.0 FORTRAN-80 3,49 140,800 2E+2 KILL SAVAGE 
a0 oe RASIC-80 COMPILER 5.21 140,800 2E+2 BILL SAVAGE 
HP 98358 BASIC 140,800 1E-3 J, SPEISER 
ZENITH 2-100 (8088) iBASI 142,730 2E+2 RILL SAVAGE 
809 2.4 BASICOG 149,000 2E-2 ANDY BALL MICROWARE SYSTENS CORP 
8008 g.0 S$5 FORTRAN 1.04 154.000 2E-7 COMPUSERVE 
TEM PC (8088) 4.77 BASIC INTERPRETER 127,000 SE+2 J. SPEISER SINGLE PREC 
TEM PCO (8088) 4.77 BASIC INTERPRETER 1.00 140,000 SE+2 i. SPEITSER DOUBLE PREC EXC TRANS. 
TEM PC (8088) 4,77 BASIC COMPILER 1,00 170.060 1E-3 d, SPEISER DOQUBLE PREC 
BOBS a. MS PASCAL ? 171,000 1E-? COMPUSERVE 
HUBS wa BASIC-80 20 174.900 2E+2 BILL SAVAGE 
B086 of PL/ 1-86 1.0! 179,400 BE+2 RILL SAVAGE 
i-8t 4,0 RASIC-80 oot 144.000 2E+2 COMPUSERVE 
HEATH H-B9 (2-80) 4,0) MBASIC COMPILER Jel 189,700 2E+2 JOHN TOSCAND 
HEATH H-89 (2-80) 4,4 FORTRAN-80 203.000 2E+2 JOHN TOSCANG 
TARDY 14B (48000) YENTX CO COMPILER 211,000 {E-3 JOHN TOSCAND 
TBH PC (8088) 4,77  SUPERSOFT FORTRAN 1.07 211,000 ¢1E-3 HUGH KAWABATA  DQUBLE PREC 
&8000 6,0 C {TRO-XENTX) 212,000 1E-6 COMPUSERVE 
TEM PC (8088) 4.77 DRI PERSONAL BASIC 1.0 217.000 LE+3 REY DUNCAN SINGLE PREC 
HEATH H-89 (2-80) 4, MBASIC 4.8 229,800 2E+2 JOHN TOSCANG 
ZENITH Z-i00 (2-80) HBASIC dele 236.746 2E+2 RILL SAVAGE 
‘BOGS 4, 0/80 3.0 238,000 3E+2 COMPUSERVE | 
DEC POP 8 05/8 FORTRAN IV 240,000 LE+3 SHERMAN GROMME SINGLE PREC, TIME APPROX 
Bugo a PL/ I-80 1.30 224,400 SEt2 RILL SAVAGE 
TRH PC (8988) 4.77 DRI PERSONAL BASIC 1.0 faa. 000 LE+3 RAY DUNCAN DOUELE PREC 
baggy &,@ RASIC/S-16 1.7 266.000 2E+2 COMPUSERVE 
HP-85 CALCULATOR BASIC 280.767 LE-3 RILL SAVAGE 
HP-8S CALCULATOR BASIC 281.000 G&-4 COMPUSERVE 
g088 6. i COMP. INNDV, C86 1,33 288.000 7E-6 COMPUSERVE 
HP-75 CALCULATOR RaSIC 320,000 4&-4 COMPUSERVE 
7-89 4,0 RASIC-E 2.2 330,000 SE+l COMPUSERVE 
HEATH H-89 (2-80) 4,0) 0/90 3.0 370,700 3642 JQHN TOSCANO 
2-0) 4,0 PL/I-86 1.3 373.000 FE+2 COMPUSERVE 
QSRORNE I (7-80) C/80 420.000 2£+2 ROB BRIGGS 
TANGY I 12-80) FORTRAN-20 422.000 2E+2 KARL CASPER SINGLE PREC 
APFLE TT (4502) 1.75  APPLESOFT 483,000 ({E-3 C. SPRINGER 
APPLE I] (8088) 1.75 APPLESOFT BASIC 476,000 C1E-3 R. 5. SCHLAIFER 
i-80 4,0 NEVADA FORTRAN 2.2 473,000 BE+! COMPUSERVE 
VIE-20 (6502) 1.0 RASIC z.0 477,000 9E-5 COMPUSERVE 
TANDY [ 2-80) NGLINERX PASCAL wel 485.000 1E+2 KARL CASPER 


(Continued on next page) 
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NEW! Back Issues 


Act Now! This offer good only through March 31, 1984. 


SAVE $5.00 on this special back issue offer. Regularly $3.50 
per issue, now only $2.50 each when yvu order a package of 5! 
For only $12.50 you can have any 5 issues listed below, 





#66 
#68 


#69 


#70 


#71 


#72 


#73 


#75 


#76 


TO ORDER: 
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72 
81 
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Volume VII, No. 4: 8080-Z80/8086 
Cross-Assembler, Part 2 — Writing the 
Runic Compiler — Poor Person’s Spelling 
Checker. 


Volume VII, No. 6: Multi- 68000 Person- 
al Computer — PDP-1802, Part One — 
Improved LET for LLL Basic — CP/M 
Print Utility. 


Volume VII, No. 7: IBM-PC Issue! 
CP/M-86 vs. MSDOS (A _ Technical 
Comparison) — Hi-Res Graphics on the 
IBM-PC — PDP-1802, Part II — Review 
of Word Processors for IBM. 


Volume VII, No. 8: Argum “C’’ Com- 
mand Line Processor — SEND/RECEIVE 
File Transfer Utilities — Intel’s 8087 — 
Performance Evaluation. 


Volume VII, No. 9: FORTH Issue! 
Floating-Point Package — H-19 Screen 
Editor — Relocating, Linking Loader — 
Z8000 Forth — Forth Programming Style 
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tines — CP/M Conditional SUBMIT. 


Volume VII, No. 10: Portable Pidgin for 
Z80 — 68000 Cross Assembler, Part I — 
MODEM and RCP/Ms — Sim plified 
68000 Mnemonics — Nested Submits — 
8086/88 Trig Lookup. 


Volume VII, No. 11: Wildcard UNIX 
Filenames — Tests for Pidgin — 68000 
Cross Assembler Listing, Part 2 — Add- 
ing More BDOS Calls — The Perfect Hash 
— BASIC Memory Management — Bench- 
marks for CP/M-86 vs. MSDOS, ang the 
8087. 


Volume VIII, No. 1: Augusta, An ADA 
Subset for Micros— Xanadu: Hypertext 
from the Future —Stone Age Computers: 
6000 Years of Computing Science — 
Small-C Compiler v2., Part 2. 


Volume VIII, Issue 2: PISTOL, A Forth- 
like Portably Implemented STack Ori- 
ented Language — Program Linkage by 
Coroutines, Forth to BASIC — Linking 
CP/M Functions to Your High-Level 
Program — Concurrent CP/M-86 — Small 
Systems Engineering CP/M-80 Expansion 
Card for the Victor 9000 — REVAS Dis- 
assembler. 
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82 
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77 
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Volume VIII, No. 9: FORTH ISSUE! 
Forth and the Motorola 68000 — Non- 
deterministic Control Words in Forth — 
A 68000 Forth Assembler — GO in Forth 
— Precompiled Forth Modules — Signed 
Integer Division —Some Forth Coding 
Standards — The Forth Sort — A speed 
and accuracy benchmark program for 
high-level languages — Using a Digital 
Spreadsheet Program for Something aun 
and Unusual. 


#84 Volume VIII, No. 10: DDJ’s new C/Unix 
column! — Unix to CP/M Floppy Disk 
File Conversion — A Small-C Help Facil- 
ity — Attaching a Winchester Hard Disk 
Volume VIII, Issue 3: Augusta, Part II: to the S-100 Bus — Using Epson Bit- Plot 
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C Operating System — 6809 Threaded tem — 8086/88 Function Macros — Auto 
Code: Parametrization and Transfer of Disk Format Selection — CP/M Plus De- 
Control — A Common-Sense Guide to vice Tables. 
Faster, Small BASIC — A Fundamental 
Mistake in Compiler Design — Basic Disk 
#85 Volume VIII, Issue 11: A Kernel for the 


1/O, Part I. 


Volume VIII, Issue 4: RECLAIM De- 
stroyed Directories — Binary Magic Num- 
bers — 8080 Fig-Forth Directory & File 
System — SAY” Forth Votrax Driver — 
TRS-80 8080 to Z80 Translator — Basic 
Disk I/O, Part II. 


Volume VIII, No. 5: Augusta Part III: 
The Augusta Compiler — A Fast Circle 


Plus. 


MC68000 — A DML Parser — Towards a 
More Writable Forth Syntax — Simple 
Graphics for Printer — 8080 to Z80 Pro- 
gram Conversion, CP/M Plus DPB Macro 
Fix, and Quicker Submit File Truncation 
— Floating-Point Benchmarks and an 
MSDOS COM File Loader — software 
and book reviews. 


Routine — Enhancing the C Screen Editor #86 Volume VIII, Issue 12: Faster Circles 

— Shifts and Rotations on the Z80 — for Apples — Cursor Control for Dumb 

The SCB, TSX, and TXS Instructions of Terminals — Dysan’s Digital Diagnostic 
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(Table I continued) 


MHZ 


COMPUTER LANGUABE VERS FPP TIME ERROR SOURCE COMMENTS 
: (SEC) 
TANDY 1 (2-80) BASIC T2.000 LE+2 KARL CASPER 
COMMODORE 64 (6010) RASIC H14.000 <1E-3 TERRY THOMAS 
i-80 4,0 BAS 1.4 TAG. G00 2E+2 COMPUSERVE 
TANDY CC (4809) FORTH 60.000 <{E-3 GARY BERGSTROM 
TANDY CC (4809) BASIC RS-CC 1.0 nao. 000 C1E-3 GARY BERSSTRON 
ZENITH ZW110 S088 863.0 CI C86 655.000 ¢1E-3 A, F. HERBST 
IRM FC (8088) 4,77 {1 C8 1.330 695.000 1E-3 J. SPETSER DOUBLE PREC 
TANDY 188 (68000) XENTY MBASIC 773,800 1E-3 JOHN TOSCAND 
TR FC (8088) 4,77 BASIC INTERPRETER 2.0 890,000 LE-3 d, SPEISER DRUBLE PREC 
i-84 2.4 NEVADA FORTRAN 3.0 975.000 BE+! SHERMAN GROMME 
RUS 4.1 CR-80 1.2 997,000 2E+i COMPUSERVE 
g085 6.0 FORTRAN-20 3.4 1251.000 1-12 COMPUSERVE 
R085 &,( CRASIC 2.08 1423,000 2E+i COMPUSERVE 
1-86 4,4 BASIC-86 ded 1980. 000 1E-7 COMPUSERVE 
i-80 4,() AZTEC C Ti 1,05 2190.000 1E-5 COMPUSERVE 
HEATH H-89 (2-80) = 44 AITEC C 1.05 2226.000 <1E-3 JGHN TOSCANO 
T]-59 CALCULATOR 3240,.000 7E-3 COMPUSERVE 
i-84 Jeo 5-BASIC 3700.000 SE+4 COMPUSERVE 
TANDY 1 (2-80) FORTRAN-BO 4502,000 C1E-3 KARL CASPER DOUBLE PREL 
TANDY I (2-80) PASCAL -B8i w220,000 <1E-3 KARL CASPER 
1-80 4,0) URT PASCAL 2,1 wh, 000 LE-3 COMPUSERVE 
HP-65 CALCULATOR b000.000 9E-3 COMPUSERVE 


HP iSC CALCULATOR 


10200, 000 1£-2 


KARL CASPER 








SINCLAIR 7%-81 BASIC 86400. 000 3E- KARL CASPER ARGUT 1 DAY 
End Table I 
16-Bit Toolbox Listing (Text begins on page 92) 
main()-= 
/* Floating point accuracy test adapted from DDJ 9/83 p. 122 */ 
{ 
int 1,iloop=2500; 
double a=l1; 
double tan(),atan(),exp(),log(),sqrt(); 
for (1=3i<1100p74++) 
{ 
a=tan(atan(exp(log(sgqrt(a*a)))))+1.9; 
} 
printf("\na = .310.4£\n" ,a) ; 
} ‘ 
End Listing 
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BDSC 


The fastest CP/M-80 C 
compiler available today 


Version 1.5 contains some nifty improvements: 

The unscrambled, comprehensive new User’s Guide 
comes complete with tutorials, hints, error message 
explanations and an index. 

The CDB symbolic debugger is a valuable new tool, 
written in C and included in source form. Debug with 
it, and /earn from it. 

Hard disk users: You can finally organize your file di- 
rectories sensibly. During compilation, take advantage 
of the new path searching ability for all compiler/linker 
system files. And at run-time, the enhanced file I/O 
mechanism recognizes user numbers as part of sim- 
ple filenames, so you can manipulate files located any- 
where on your system. 


~ 





BDS C’s powerful original features include dynamic 
overlays, full library and run-time package source 
code (to allow customized run-time environments, 
such as for execution in ROM), plenty of both utilitar- 
ian and recreational sample programs, and speed. 
BDS C takes less time to compile and link programs 
than any other C compiler around. And the execution 
speed of that compiled code is typically lightning fast, 
as the Sieve of Eratosthenes benchmark illustrates. 
(See the January 1983 BYTE, pg. 303). 


BD Software 8” SSSD format, $150 

P.O. Box 9 Free shipping on pre-paid orders 
Brighton, MA 02135 Call or write for availability on 
(617) 782-0836 other disk formats 
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@ C DEVELOPMENT PACKAGE 


C Compiler, Assembler, Linker, and Librarian 
Full Screen Editor — Native 2.0 Support 


@ OUTSTANDING PRICE/ 
PERFORMANCE 


Updates and Bugs reported in newsletter 
No time/number limits 





+Trademark IBM ++ Trademark Digital Research 


ig 


DeSmet C $109 


PCDOS+ — CP/M-86++ — MP/M-86+- — CCP/M-86++ 
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Name 
@ COMPLETE IMPLEMENTATION Address 
Everything in K & R (incl. STDIO) 
Small case — 64K code, 64K data/stack 
All 8088 /8087 data types 
Intel assembler mnemonics — 


“... by far the best debugging tool 
available for the IBM-PC today.” 


S. Lerner, Multi Systems Group 


Ke CodeSmith"-86 
sy B fabcode exe CodeSmith-86 






8956F4 s LL TE LD | SMG GL i 


ae AN ONTIRRETTT Pre aae) vOTh 
MEMORY DUMP 
Se iT: 4 O05¢ EVOL s(t if Th wT , 


WNOW 2 LVL 4] 2 VL 1 


¢Simple/single keystroke commands 
¢ Scroll up/down thru full-screen disassemblies 
*SCREENSAVE Mode 
Saves and restores user’s graphic display when 
breakpoint hit 
* Continuous monitoring of selected memory 
* Hundreds of tagged breakpoints supported 


* Disassemble selected ranges of memory code 
to disk—compatible w/IBM Assembler 


¢ Many other inspired features 
Requires MS-DOS 
VISUAL AGE eiboK RAM min) 


642 N. Larchmont Blvd., Los Angeles, CA 90004 


(213) 439-2414 CodeSmith, TM International Arrangements, Inc. 
MS, TM Microsoft Corp. IBM, TM International Business Machines Corp. o 
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ORDER FORM 








OS:O PCDOS OMSDOS OCP/M-86,MP/M-86, CCP/M-86 
DISKS: 0 8’(3740) 


MACHINE? (IBM, ZENITH, NEC, etc.) 
Aug. °83 BYTE “SIEVE” Benchmark SEPSSESSSSSSSSSSSSSSSLSS SSS SSSSs Sse ss ssc rrecsrssvsssse=se 
135 bytes compiled — 6144 bytes linked 
65 sec. compile (fdisk) — 11.5 sec. run (10 iter) Sen masa, Winteethabeeaneh vs 
Manual Only (refunded with order) .......... $20 
@ SUPPORT LIBRARIES 
Both 8087 and Software Floating Point WARE Ne ALAR RY SINS Retina on ce kb oms $20 
PC Keyboard / Display Sub Total . 
Trig /Log functions 
California Residents add 6 % Sales Tax 
e UPDATES Send To: Cc WARE 


P.O. Box 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


Reeeeeweswesesweweweewewewewewesweseseee es wo al 


0 5.25” SS(160KB) 0 5.25” DS (320KB) 


Total 
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Faster than a Speeding 8088 


Lightning 286, from Lomas Data 
Products, is an S100 80286 board that 
runs 8088 and 8086 software four 
times faster than a 5 MHz 8086 
(which itself is considerably faster 
than the 8088), and can run the 80287 
high-speed numeric processor, giving 
program execution in some programs 
a doubling of speed. The Lightning 
286 can run at clock rates up to 10 
MHz, and Lomas suggests that they 
will increase their rates as Intel im- 
proves the 80286 (which currently 
runs at only 6 MHz). Lightning 286 
allows 16 Mb physical address space 
and 1 Gb virtual address space. Four 
operating systems, MS-DOS, CP/M-86, 
Concurrent CP/M-86, and MP/M-86, 
are currently available with the board, 
which conforms to IEEE 696 $100 
bus specifications. The board costs 
$1395, with optional 80287 for an- 
other $550. Reader Service No. 101. 








High Speed Modems 


Prentice Corporation’s limited 
distance, ALD/1, full and half duplex, 
asynchronous 1200 to 9600 baud 
modem conforms to Bell specifications 
43401 and 41028 with metallic, 
twisted-pair Local Area Data Service 
(LADS) for local office and campus 
networks. It comes in a stand-alone 
version for $300 and rack-mountable 
for $200. The HSLD/1, 2400 to 
19,200 baud, is $490 and $390. The 
synchronous leased line 4800 baud 
208A/B is $1750 and $1650, while 
the 9600 baud 9629 for four-wire 
3002 -type unconditioned leased lines 
in point-to-point applications is 
$2750 and $2650. Reader Service 
No. 107. 


Here Come the Little Guys 


Even though I rarely mention 
products for which the press release 
lists no price, I’d like to describe this 
one because it shows what you can 
shortly expect many computers to 
look like. The UDI-500, from Univer- 
sal Data Incorporated, is the first 
portable computer with internal bat- 
teries and two disk drives. At 11 by 
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‘13 by 3 1/8 inches and 12.8 pounds, 
it is less than half the size and weight 
of competitors. The CMOS Z80 per- 
mits up to 12 hours of operation on 
one charge of the nickel-cadmium 
batteries. You can get 80 hours if 

you never use the disks or two with 
constant disk use. The batteries charge 
fully in 10 hours. The LCD has eight 
lines of 40 characters. An accessory 
slot accommodates the optional 300 
or 1200 baud direct-connect modem. 
The low-power static CMOS memory 
is 64K standard, expandable to 256K. 
Two plug-in CPU boards (both CMOS) 
come with the computer, Z80 and 
1805. You get CP/M 2.2 and Micro- 
DOS. Available software includes text 
processor, spelling checker, data filing 
system, spread sheet, communications 
package, and various flavors of BASIC. 
Reader Service No. 103. 


Computers Talking to Each Other 


SOFTCOM Telecommunications 
Utility, from the Software Store, is an 
intelligent terminal program and CP/M 
to CP/M file transfer utility that sup- 
ports XON/XOFF and transmits at 
up to 9600 baud in full or half duplex. 
It runs on 8080, 8085, and Z80 sys- 
tems with at least 32k and CP/M, and 
costs $150. Reader Service No. 109. 


CP/M Plus for Cromemco 


Super BIOS Plus, from MICAH 
(Micro Applications and Hardware), 
is CP/M Plus for Cromemco computers, 
starting at $495. You get source code 
for all modules. You can also add the 
Expand program, a CDOS emulator, 
and the Select Word Processor. MICAH 
also carries Morrow hardware config- 
ured for Cromemco., Reader Service 
No. 115. 


Don't Give Me Any Static 


Staticide Wipes, from ACL Incor- 
porated, are individually packaged 
towelettes for cleaning and static con- 
trol of video screens, packed in square 





foil packs, 24 to a box, $4.98 per box. 
ACL offers free samples and informa- 
tion on other Staticide products. 
Reader Service Service No. 119. 


Come Forth 


The Institute for Applied Forth 
Research is hosting the 1984 Rochester 
Forth Applications Conference June 5 
to 9 at the University of Rochester. 
Speakers will discuss real-time systems. 
The conference sponsors are calling 
for papers on Forth applications and 
techniques. A 200-word abstract is 
due April 1 and the paper should be in 
by May 1. Papers should be on real- 
time software (including process con- 
trol, data acquisition, smart instrumen- 
tation, laboratory systems, robotics, 
computer vision, spacecraft navigation, 
music and voice synthesis), applica- 
tions (in particular, Forth microchip 
applications), or Forth technology 
(finite state machines, control and data 
structures, and hybrid hardware and 
software systems). Papers should be 
sent to Diane Ranocchia (who can be 
contacted for more information), 
Institute for Applied Forth Research, 
Inc., 70 Elmwood Avenue, Rochester, 
New York 14611; (716) 235-0168. 


Proportional Spacing on Wordstar 


Proportional Spacing on WordStar, 
from the Writing Consultants, is a $20 
book that tells you how to do what 
(they claim) “‘the industry has said 
WordStar needs,” plus print two or 
more justified columns on a page and 
underline_spaces_between_words. 
Reader Service No. 117. 


UNIX for the People 


Will UNIX be on microcomputers? 
Real UNIX? The Office UNIX System 
from Unisource is not a lookalike, but 
full UNIX, licensed from AT&T, and 
developed as VENIX/86 by Ventur- 
COM for the IBM PC. Unisource’s Of- 
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SPECIALIZING IN HARD DISKS AND HIGH 
PERFORMANCE STREAMING TAPE UNITS 





MD-10 


44 MEGABYTE (FORMATTED) 
5 1/4” HARD DISK Including 


POWER $1995 





OL ehie 


Check out InfoWorld's Rave 
review of POWER Nov. 8/82) 


95 CP/M 
UTILITIES IN 
ONE PACKAGE 


... The super program that puts you in control of CP/M 
(or MS-DOS) and your winchester. 


POWER automatically numbers disk files. Just pick file 
number to Copy, Erase, Reclaim, Type. etc. 

.. Your computer feeds the file names automatically. 
You do NOtyping! NO typing error ever! 
YOU DON’T NEED SYSTEM DISK IN ANY DRIVE. 
No more BDOS ERROR! 


YOU Test and Fix bad disks! Reclaim accidently erased 
files or programs! Single step thru memory up or down! 
Search, view, change memory or disk in a snap! See 
Status and File Size instantly! Verify check-sums for 
programs! Load or Save programs at any address. 


55 prompted user-friendly funstions for housekeeping 
and a 120 page easy-read user’s guide make POWER 
your most often used software. You'll use it every day! 


Now, POWER! also includes a special program that lets 
you lock sensitive files, so that only you can access 
then. Without the secret PASSWORD which you can 
create and change at will, no prying eyes will ever 
know your secret file even exists. 


SOME MAJOR POWER COMMANDS: 


REN CM WRITEGR DISK STAT 
TYPEA USR 2 DUMPA SPEED SETDIR 
SIZE ERA SEARCH WRITE RECLAIM 
XUSER TYPEX ? DUMPX DS 

SETRO CHECK COPY FILL READ 
GROUP _ TEST TYPEH EX DUMP 
SAVE SETWR EXIT DIR MOVE 
READGR LOG USER TYPE JP 
DUMPH LOAD SETSYS RUN 


ORDER 
Name 


MEGA.py TF 


For this low price your winchester will be delivered completely assem- 
bled and tested, with drive controller, case, power supply, cabling, Z-80 
interface and the best disk controller software on the market. 


@ The unique and simple interfacing system does not 
tie Up existing ports. 

@Significantly faster than other winchester sub- 
systems which interface through the IEEE-488 port. 

@ CP/M drivers require minimum memory overhead 
(about 2K-other systems require as much as 6k) 

@The MD-10 can read or write a 64K file in less than 
four (4) seconds. 

@ A network system will be available shortly which can 
support up to sixteen mixed types of computers from 
one MD-10 or larger disk subsystem. 

@ With POWER! Software files can be code word protec- 
ted. 

@ Other systems available: 22 and 44 megabytes 


MD-20 with 22MB formatted: $2895 
MD-44 with 44MB formatted: $3995 


@ Up to eight (8) winchester subsystems can be inter- 
faced to one computer. 


®@ Software supports 32 different user areas per MD{O. 

@ Backing up hard disk files is simple with the special 
software which is provided with all subsystems. 

@ With a single hard disk installation, the MD-10 sub- 
systems becomes units A and B with the standard 
drives being designed E and F if a second MD-10 is in- 
stalled later it becomes units C and D. 

@ MD-10 or larger systems will interface with IBM PC or 
any Z-80 computer (CCS, APPLE (CP/M), 
ZENITH/HEATH, NORTHSTAR, GODBOUT, XEROX 
820, Z-80/S100, ALSPA, or TRS-80 MOD II) using 
CP/M, OASIS,PCDOS 2.0, andGodbout Software sup- 
ports both CP/M and MP/M816. 

® Double density modifications are available allowing 
you to later increase the capability of an MD-10 to 
about 20 megabytes, MD-20 to 40, etc. 

@ Full One-Year Warranty 





HIGH PERFORMANCE STREAMING TAPE 


Unique! Simple! 


Compatible! 





@ Field-proven Archive Sidewinder tape unit. 
@ Interfaces with ANY SASI/SCSI compatible hard disk peripheral. 


@ Full CRC error-checking 
@ Superb reliablity. 
@ Full One-Year Warranty. 


© Fast (up to 20MB in less than 5 minutes, up to 40MB in less than 10 minutes). 


$1795.00 20MB 
$1995.00 45/60MB 


$29.95 3M DC300XL 
Streaming Tape Cartridges 





Price Total 


o.; ORDER OR FOR MORE INFORMATION: 
(801) 257-7033 or mail fo MEGA-BYTE INC. RT. 3 Box 98, ee Utah 84337 


TERMS: Cashiers Check, VISA, M/C or COD. 
Shipping charges added fo all orders. 





TITLE 
CITY 
ZIP 


CP/M is a registered trademark of Digital Research. OASIS is a 


proprietary product of Phase One Systems Inc. Z-80 is a trademark 


NAME 
COMPANY 
pee, ADDRESS 
Pause oxi STATE 
visAQ M/CO  coDddo Total Order Ras 2 Gee 
Card # Exp. Date lf Utah Tax 
Signature Total Enclosed 
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of Zilog. MD-10 is a registered trademark of Media Distributing. 


fice Menu Tool uses prepared menus 
to run applications or execute com- 
mands, and you can make your own 
menus. You get four editors, C com- 
piler, BASIC, assembler, uucp, cu, 
nroff, a spelling checker, table format- 


ter, library routines, vi, more, termcap, 


and the c shell, in single user format 


for $800 and multiuser for $1000. The 


Office Menu Tool is $125. You can 
add the FinalWord for $395, Leverage 
DBMS for $385, ViewComp spread- 
sheet for $395. There are also various 
single and multiuser combinations, 
with VENIX/86 plus one or more ap- 


plications, starting at $1125. Reader 
Service No. 111. 


Fortran 77 


Those of you who use For- 
tran 66 or, heaven forbid, Fortran 
2 and are tired of the gibes from your 
friends who use Pascal (‘““Nyah, nyah, 
you don’t have good string-handling 
capabilities.” ‘““Your language ain’t 
structured.’’) will be thrilled to learn 
that Absoft has FORTRAN 77 for the 
Whitesmiths Idris operating system 


on 68000 systems. This is an ANSI 
Fortran 77 compiler that generates 
position-independent and reentrant 
object code, supports virtual arrays, 
has a full screen source level symbolic 
debugger, and enables dynamic linking 
of modules at run time. It compiles 
up to 3500 lines of code per minute 
and has no restrictions on code size. 
You'll pay $695 to $2000. Reader 
Service No. 113. 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 197. 





How about a portable computer 
with a 132-column screen? The 
Execuport XL from Computer Trans- 
ceiver Systems Inc. is just that, with 
Z80 and CP/M, while the Execuport 
XL+ has both the Z80 and 80186 
(true 16-bit) and MS-DOS. Both come 
bundled with Perfect Calc, Speller, 


And a Small Powerhouse 


Writer, and Filer. Optionally, you can 
get OASIS, CP/NOS, CP/NET, and 
MP/M. The XL has 80K, while the 


XL+ has 128K, which can be expanded. 


Both have a 9-by-5 green phosphor 
screen with 132 columns by 24 lines, 
two double-sized, double density 
5%-inch drives with 800K storage 


each, and 22 user-programmable 
function keys. The XL is $2695 and 
the XL+ $3495. You can lease them 
for, respectively, $98 and $130 per 
month. The computers are supported 
by CTSI’s nationwide on-site sales 
and service programs. Reader Service 
No. 105. BB 
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e What's easier than 
spending money? 






At last! A full screen editing checking and finance program so informative and 
easy to use you'll wonder how you lived without it! Especially at S$4g9s 


Sixteeen user-definable categories. Category totals instantly updated with each 
new entry or change. 


Includes 
eed RAC ee a (cl categories for 
cerca aay ee Tee ils, cash ex 
(bite pa e gee UMC am at a ; 
add or change any Sle sare REF =REFUNDS bercine enends 
entry anytime. 3 2 $27.89 R  =ROYALTIES 


Scroll forward and 
back through your 
register or instantly ae . sRISC. ESPENSE! Re Rie eee eta e ta: 

go to any entry. causa cee rare an B SRP CPO aet ts 8.88 SRCH Checks and 
Balances aligns 
' MD en] decimals and 

ae Shieh et , left justifies text. 


221.27 TAX =TASES-SRA AND OTHERS 
8.08 T =TRAFEL EXPENSES 


ae 


ten | 
BY ta i tt tt 


ae 
Pot ii os 
4 


Paes apie men ehas @0 as 
ee 0) | AUD OO ee SER eC | 
For complete rec- 





ords, cash expendi- i eRe re Ce eae , s 
sta ei ENTR? Memo: MEETING TO DISCUSS NEU ADVERTISING Se 
in category totals | an ‘ eae ¥ through your 
but not bank bal- ach AoUe Ree 2 tee thee ta thee 248.08 x ne y 
ance. | {DEP > Memo: SAL zs dacs Sates oe : 
= e LAY & DIT = TRUE : HERE BANK $ 7758.41 
Bank statement balance reflects only 
All commands in plain True checking balance instantly updates items checked off as having cleared your 
English. with each entry. bank. 


So easy to use! See your financial totals start to add up before your eyes in less than five minutes! Checks and 

Balances’ cursor can move anywhere, anytime, to add or change entries, and all totals will instantly be updated 

on your screen when you change an amount or move a check to a different category. Checks and Balances gives 

you complete printed reports of the entire register, each category, or reports based on any entry in ‘‘Pay to”’ or 
‘‘Memo’’—even bills and uncashed or missing checks. File size is limited only by your disk capacity. Over 32,000 

entries are possible. 

Technical: 80 x 24 CRT with addressable cursor, reverse video optional. Z-80 processor, one or more disk drives with over 180k capacity. 56k RAM. 


ame COE SOFTWARE 


VISA’ 2463 McCready Avenue na) 
Los Angeles, CA 90039 


(213) 661-2031 





Circle no. 8 on reader service card. 











ADVERTISER INDEX 





Reader Reader Reader 
Service Page _ Service Page Service Page 
No. Advertiser No. No. Advertiser No. No. Advertiser No. 



















1 Adler Computer SystemsCo..... Hl ogi Beosolt inc..............- 14 47 Quest Research... «. =. «.... . - 33 
7 Asiion-iate...... «i... 2 22 Foehn Consulting Engineering.... 77 48 Quic-n-Easi Products, Inc... .... 13 
3 Avocet Systems [ic.......... tl 23 GGM Systems... .... 67 49 Rational Systems. wis iw it i“ ijk. 102 
4 Awarco Active Software. ...... 4 MGIER imc .............. 81 * Fdwaerd Ream... sia‘ iwiw tes 68 
SB8DSciwarc............. 97 25 Hallock Systems Consultants .... 83 S1 Revaico .. sw ee. 64 
6 Bonnie Blue Software ........ 29 =73 Harvard Softworks.......... 58 * Rocky Mountain Software Systems. 17 
* Borland nternational......... 104 26 HawkeyeGumGs............ 63 52 Sage Computer Technology ..... 23 
8 California Digital Engineering. ...101 27 Laboratory Microsystems ...... 3 53 Seattle Computer..........-.- 7 
9 jheCode Works. .......... 91 28 Lifeboat Associates.......... 61 54 SemiDisk Systems........... 71 
10 Computer Desion Labs........ 55. 29 LogealSysleus...........:; 27 55 Shaw Laboratories ..........- 20 
1] Computer Friends........... 46 30 Loki Engincering........... 65 56 Simpliway ProductsCo........ 5] 
12 Computer Innovations........ 4S 31 Manx Software ............ 4 S) SLR Systena «sti i‘(‘(‘‘(C#$S(SCSC§N(CNCC. 39 
13 Computer Resources of Waimea... 533 33 Mega-Byte..............-: 99 58 The Software Store.......... 56 
14 Creative Soludons........... 49 34 MicroMotion.............. 60 59 Software Writers Intn’1 Guild.... 59 
18 C Users Group... ......... 64 35 Micro Processors Unlimited ..... 57 60 Software Writers Intn’] Guild. ... 33 
ee —“‘“‘C‘COCOCSCSC*CS 97 36 ModalSystems ............ 4 61 Solution Technology, Inc....... 21 
* DOJ Advertising... ......... 56 37 Myistar Electronics, nc........ 41 62 Solution Technology, Inc....... 19 
* DDJ Change of Address ....... 102 39 Novum Organum........... 63 63 Syntax Constricts, bc. ........ 56 
71 DDJ Subscvibe.............. 69 40 Overbeek Enterprises......... 77 64 Telecon Systems ..........- 31 
* DDJ Sack issues............ 95 * John D. Owens Associates, Inc.... 82 65 Unified Software Systems...... 67 
* DD] Reston... .si(i‘(“(NCO#C 87 41 Pacifica lechnolony ......... 89 32 Video Games International ..... 15 
72 DDJ Bound Volume ......... 85 42 Pascal & Associates.......... SI 66 VisualAce............... 97 
17 Data Access Corporation. ....... S 43 The ProgrammersShop....... 91 67 Whitesmith,_Lid............ 103 
18 Data Management Associates, Inc.. 25 44 PRO Microsystems.......... 91 68 Mark Williams & Co..........- 35 
19 Dedicated Micro Systems,Inc. ... 82 45 PRO Microsystems.......... a7 69 Workman & Associates........ | 
2ZDEWDeta ............ 43 46 Pilea... -—si.«. sia. ss 81 70 Write Consulianis......-....- 31 






C Programmers: : 
Program three times faster Changing Your 


with Instant-C™ Address? 


Instant-C™ makes programming three or more times 

faster by eliminating the time wasted by traditional 

compilers. Many repetitive programming tasks are 

cl blip make programming less frustrating ieee seus eel et 


Two seconds elapsed time from completion of 
editing to execution. 


Full-screen editor integrated with compiler; 

compile errors set cursor to trouble spot. 

Editor available any time during session. To change your address, attach your address label trom 
Symbolic debugging; single step by statement. the cover of the magazine to this coupon and indicate 
Automatic recompilation when needed. Never a your new address below. 

mismatch between source and object code. 
Directly generates .COM, .EXE, or .CMD files. 
Follows K & R—works with existing source. 
Single, integrated package. Address 

Works under PC-DOS*, MS-DOS*, CP/M-86*. 


More productivity, less frustration, better programs. Address 
Instant-C™ is $500. Call or write for more information. 


(617) 653-6194 City 
Rational P.O. Box 506 


Systems, Inc. Natick, Mass. 01760 


*[Trademarks: PC-DOS (IBM), MS-DOS (Microsoft), CP/M-86 (Digital Research, Inc.) 


Instant-C (Rational/Systems, Inc.)] Mail to: DDI, P ce: Box E, Menlo Park, CA 94026 


Name 


Zip 
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With Idris, developers get the functionality, compatibility and perta bility | 
of UNIX. And pocket the Idris difference. 


ae 


° GREATER PORTABILITY. - MORE COST EFFECTIVE PER 
Applications developed under Idris USER. The $550 end-user price is for 
on any micro compiler can run on as many users as the hardware will 
any other which supports Idris. These allow. 


are PDP-11s (including PRO-350 and 
Micro-11), numerous Motorola 68Ks 


and the 8086/88 based IBM PC and 


because Idris 
requires less memory. Typically, 50 


ee Rainbow. KB for the Kernel plus 50 KB for a 
Idris runs under MS/DOS as an compile. For example, you can 
application! overlap communication 

- COMPLYING WITH THE UNIX simultaneously with word processing 
USER GROUP STANDARDS. and spreadsheet analysis and Fortran 
TWICK TH RO} RS as compilation. 


UNIX on comparable hardware, 
because Idris is optimized for 
microprocessors. 


provided by use of Whitesmiths’ 

authorization seal. 

That’s UNIX with change. To get 
Idris occupies less \\ Samet ee more out of your computer, call 

than 1.5 megabytes of disk. — or write to Whitesmiths, Ltd. 


Whitesmiths, Ltd. 


97 Lowell Road Concord, MA 01742 
(617) 369-8499 Telex 951708 SOFTWARE CNCM Circle no. 67 on reader service card. 





UNIX is a trademark of Bell Laboratories: DEC, PDP-11 and Rainbow are trademarks of Digital Equipment Corporation: IBM and IBM PC are trademarks 
of International Business Machines Corporation: MS-DOS is a trademark of Microsoft Corp.: Idris is a trademark of Whitesmiths, Ltd. Distributors: 
Australia, Fawnray Pty. Ltd., Hurstville, (612) 570-6100; Japan, Advanced Data Controls Corp., Chiyoda-ku, Tokyo (03) 263-0383; United Kingdom, 
Real Time Systems, Douglas, Isle of Man 0624833403; Sweden, Unisoft A.B., Goteborg, 031-13-56-32. 
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